рисунки

рисунки

Подписаться на эту метку по RSS

Вставка изображений из указанной папки для Word 2007

Рубрики: Макросы | Шаблоны Word
Метки: | | | |
Дата: 15/01/2010 16:18:31

Автор заметки: Александр Витер

 

Если вам необходимо часто вставлять изображения в документ из одной и той же папки, то вам может оказаться полезной предлагаемая надстройка для Word 2007. После подключения надстройки на вкладке «Вставка» появится группа «Изображений из папки»:

Читать далее...

Изменение размера выделенного рисунка

Дмитрий спрашивает:

Как написать макрос, который назначал бы размер выделенного рисунка -- 40% от исходного размера?

Дмитрий, на эту тему уже была опубликована заметка на сайте: Макрос массового уменьшения размеров всех рисунков. В ней описан макрос для изменения размеров ВСЕХ рисунков.

Для изменения размера одного рисунка следует немного подкорректировать макрос с тем, чтобы изменялся лишь выделенный рисунок. Вот примерное решение:

Читать далее...

Задать обтекание текстом для всех рисунков в документе

Вопрос от Макса:

Нужно в документе WORD сделать обтекание текстом ВСЕХ рисунков. Как это сделать? По одному делается без проблем, но их очень много, а всех вместе никак...

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

Sub wrapImages()
'Обтекание текстом для всех типов графических объектов
Dim pic As Object
On Error Resume Next
For Each pic In ActiveDocument.Content.InlineShapes
  If pic.Type = wdInlineShapePicture Then
   pic.InlineShapes(1).ConvertToShape
   pic.ShapeRange.WrapFormat.Type = wdWrapTight
  End If
Next
For Each pic In ActiveDocument.Content.ShapeRange
  If pic.Type = msoPicture Then
   pic.ShapeRange.WrapFormat.Type = wdWrapSquare
  End If
Next
End Sub

Как переместить автофигуру из текста документа в колонтитулы

Вопрос от Светланы:

На странице имеется объект, например shape1. Его необходимо перенести в колонтитулы этой же страницы. Каким образом это возможно сделать на vba?

Светлана, если у вас в документе действительно содержится объект shape (автофигура), то вот пример макроса, который занесет эту фигуру в верхний колонтитул:

Читать далее...

Количество рисунков в документе: макрос

Рубрики: Вопрос-Ответ | Макросы
Метки: |
Дата: 12/08/2009 06:27:40

Вопрос от пользователя Bata:

Как указать кол-во используемых в тексте рисунков? Рисунки пронумерованы как Caption (SEQ Рисунок).

Я могу вам предложить следующий макрос для вставки в документ текста с указанием количества рисунков в текущем документе.

Читать далее...

Команды работы с рисунками в Word 2007

Рубрики: Вопрос-Ответ | Стили и форматирование
Метки: |
Дата: 10/05/2009 00:29:45

Никита спрашивает:

Мне часто необходимо вставлять в документы чертежи из программ Компас, Автокад, Архикад и т.д. В 2003 ворде с этим не возниккало никаких проблем, так как вставленный объект можно было обрезать до необходимых размеров, убрав не нужное. Появлялась панель такая же как для работы с вставленным рисунком. А вот в 2007 ворде такой панели не нашёл, в справке так же ничего подобного не нашёл. Есть ли какие-нибудь пути решения этой проблемы?

Никита, выделите мышью рисунок (кликните на рисунке), откроется контекстная вкладка Работа с рисунками:

Читать далее...

Number one designer
^ Наверх