1

Тема: Изменение размера всех фотографий в документе

Записать макрос на изменение выделенного изображения просто.
Но что если в документе около 50 изображений. Приходится тыкать каждое, можно ли этот процесс полностью автоматизировать?

Читал вот это: http://wordexpert.ru/page/obrabotka-gra … stvami-vba
Но никак не получается изменение размера ко всем объектам диапазона. Явно что-то делаю не так.
Подскажите пожалуйста.

2

Re: Изменение размера всех фотографий в документе

Если Вы написали макрос для одного изображения, сделайте цикл по всем изображениям. Например так:

    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

3

Re: Изменение размера всех фотографий в документе

Да, точно! Спасибо огромное.

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 Sub

4

Re: Изменение размера всех фотографий в документе

joriksun
А как будет выглядеть весь макрос (т.е. макрос изменение размера всех фотографий в документе)?

5

Re: Изменение размера всех фотографий в документе

а что в сообщении 02.08.2011 16:54:48 не весь макрос??