1 Тема от ale-saha

  • ale-saha
  • сержант
  • Неактивен
  • Зарегистрирован: 01.03.2011
  • Сообщений: 10
  • Поблагодарили: 1

Тема: рисунки по размеру полей страницы

поискала на сайте, то ли туплю, то ли не подходит мне! Вставляю очень много рисунков в вордовские документы (как правило из файла дежавю выделяю нужную область потом в ворд) необходимо  чтоб они как автоматически сразу вставлялись по размеру полей страницы или потом после вставки макросом их всех преобразовать, или хотя бы чтоб можно было выделить сразу все и задать всем одинаковые параметры типа 230 мм высота и 160 мм ширина!!!!

2 Ответ от ЮВ

  • ЮВ
  • генерал-лейтенант
  • Неактивен
  • Зарегистрирован: 28.07.2010
  • Сообщений: 284
  • Поблагодарили: 43

Re: рисунки по размеру полей страницы

ale-saha пишет:

выделить сразу все и задать всем одинаковые параметры типа 230 мм высота и 160 мм ширина!!!!

Варианты:

1 Посмотрите на сайте макрос массового уменьшения размеров всех рисунков (сделайте наоборот- задайте жесткие фиксированные размеры). 

http://wordexpert.ru/page/makros-massov … h-risunkov


2 Сделайте вручную в WORDe нужную вам последовательность действий по приведению вставленного рисунка к нужному размеру и запишите ее в виде макроса. Потом этот макрос примените к рисункам.

3 Ответ от ale-saha

  • ale-saha
  • сержант
  • Неактивен
  • Зарегистрирован: 01.03.2011
  • Сообщений: 10
  • Поблагодарили: 1
  • За сообщение: 1

Re: рисунки по размеру полей страницы

Спасибо большое!!!!!С макросами сильно не дружу, использовала парочку готовых с вашего форума...так... задать фиксированный размер...уф сделала...ещё немного порылась в интернете ииии....

получился такой:

Dim iShape As InlineShape
For Each iShape In ActiveDocument.InlineShapes
  With iShape
     .ScaleHeight = 190
     .ScaleWidth = 150
  End With
Next iShape


Размеры уже подбирала методом тыка, для моих картинок при таких парметрах они как раз вписывались в поля документа!!!