Вы не вошли. Пожалуйста, войдите или зарегистрируйтесь.
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться
Записать макрос на изменение выделенного изображения просто.
Но что если в документе около 50 изображений. Приходится тыкать каждое, можно ли этот процесс полностью автоматизировать?
Читал вот это: http://wordexpert.ru/page/obrabotka-gra … stvami-vba
Но никак не получается изменение размера ко всем объектам диапазона. Явно что-то делаю не так.
Подскажите пожалуйста.
Если Вы написали макрос для одного изображения, сделайте цикл по всем изображениям. Например так:
Sub Изменить_размер_всех_рисунков()
Dim j As Object
'отключить смену экрана
Application.ScreenUpdating = False
'для каждого рисунка в документе
For Each j In Application.ActiveDocument.InlineShapes
'изменить высоту
j.PictureFormat.Crop.PictureHeight = 400
'изменить ширину
j.PictureFormat.Crop.PictureWidth = 200
Next j
End SubДа, точно! Спасибо огромное.
Sub ResizeAll()
'Изменяем размеры всех картинок 8,8х6,6 см
Dim j As Object
'отключить смену экрана
Application.ScreenUpdating = False
'для каждого рисунка в документе
For Each j In Application.ActiveDocument.InlineShapes
'изменить высоту
j.Height = 187.1
'изменить ширину
j.Width = 249.45
Next j
End Subjoriksun
А как будет выглядеть весь макрос (т.е. макрос изменение размера всех фотографий в документе)?
а что в сообщении 02.08.2011 16:54:48 не весь макрос??
Страницы 1
Чтобы отправить ответ, вы должны войти или зарегистрироваться