Статьи из блога

Статьи из блога

Обтекание картинки текстом

Рубрика: Вопрос-Ответ, Макросы
Метки: | |
Суббота, 10 мая 2008 г.
Просмотров: 15049
Подписаться на комментарии по RSS
Версия для печати

[Ссылки на статью]

Сергей интересуется:

Как с помощью макроса сделать обтекание картинки текстом?

Сделать обтекание текстом возможно. Но лишь после того, как рисунок будет переконвертирован в графический объект.

Здесь следует объяснить, что в редакторе Word различаются два типа графических объектов: рисунки (например, фотографии или иные объекты, вставленные в документ из файла) и, собственно, объекты (автофигуры, надписи и другие объекты, которые создаются в самом редакторе или в векторных редакторах).

 

Так вот, если нужно сделать обтекание текстом для рисунка, то первоначально его необходимо переконвертировать. Ниже представлен код, который выделяет первый рисунок в документе и делает для него обтекание.

Если нужно сделать обтекание для УЖЕ выделенного рисунка, то используйте второй код макроса.

 

Первый вариант (выделяет 1-й рисунок в документе и делает обтекание текстом для него):

Sub imgtoshape()
Dim selPic As Object
Set selPic = ActiveDocument.InlineShapes(1)
selPic.Select
With Selection
   .InlineShapes(1).ConvertToShape
   .ShapeRange.WrapFormat.Type = wdWrapSquare
End With
End Sub

Второй вариант (делает обтекание текстом для выделенного рисунка):

Sub imgtoshape2()
With Selection
   .InlineShapes(1).ConvertToShape
   .ShapeRange.WrapFormat.Type = wdWrapTight
End With
End Sub

twitter.com facebook.com vkontakte.ru odnoklassniki.ru mail.ru ya.ru rutvit.ru myspace.com technorati.com digg.com friendfeed.com pikabu.ru blogger.com liveinternet.ru livejournal.ru memori.ru google.com bobrdobr.ru mister-wong.ru yahoo.com yandex.ru del.icio.us

Еще записи по вопросам использования Microsoft Word:

Оставьте комментарий!

(обязательно)

^ Наверх