Статьи из блога
Обтекание картинки текстом
Сергей интересуется:
Как с помощью макроса сделать обтекание картинки текстом?
Сделать обтекание текстом возможно. Но лишь после того, как рисунок будет переконвертирован в графический объект.
Здесь следует объяснить, что в редакторе 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
Метки: макросы | обтекание текстом | рисунки
Просмотров: 25368
Подписаться на комментарии по RSS
Версия для печати
Еще записи по вопросам использования Microsoft Word:
- 10 вопросов и ответов по редактору Word (1 часть)
- 3 способа очистки списка недавно открытых документов
- Word 2007: добавляем свою вкладку и свои команды
- Word 2007: полотно, рисунки, линии
- Word 2007: смена формата сохранения файла
- Word 97 - решение проблемы с отображением символов на линейке
- Абзац с цветным фоном
- Автоматизация текстового набора в Word
- Автоматическая запись макроса
- Автоматическая нумерация билетов
- Автоматическая расстановка переносов
- Автоматическое обновление полей при открытии документа
- Автоматическое сохранение документа при его закрытии
- Автотекст с последовательной нумерацией
- Белый текст на синем фоне в Word 2007
- Быстрая смена ориентации страниц документа
- Быстрое перемещение между открытыми документами Word
- Быстрое создание нового документа на основе шаблона
- Быстрый ввод текста с помощью команды =rand()
- Ввод повторяющихся фрагментов текста в Word 2007
- Ввод часто повторяющихся фрагментов текста
- Вертикальное выравнивание текста
- Возможно ли запретить копирование текста из документа Word?
- Вопрос о работе с графиками (диаграммами) в Word
- Вопросы и ответы о гиперссылках в редакторе Word
Комментариев: 1
а как сделать обтекание за текстом?