Как применить общий размер к изображениям в Microsoft Word 2007

Question

Можно ли применить определенный размер ко всем изображениям в Microsoft Word 2007, пока он редактируется. Если так, как это можно сделать. Спасибо

Answer 1

Вот этот удивительный макрос, взятый из этого источника. Я включил это здесь в случае, если ссылка на ссылку истекает. В основном вам нужно назначить ярлык и сохранить этот макрос, а затем выбрать все изображения в документе (перейдя в меню «Стили» и выбрав назначенный стиль изображения, который у вас есть).

Sub AllPictSize()
    Dim PecentSize As Integer
    Dim oIshp As InlineShape
    Dim oshp As Shape

    PercentSize = InputBox("Enter percent of full size", "Resize Picture", 75)

    For Each oIshp In ActiveDocument.InlineShapes
        With oIshp
            .ScaleHeight = PercentSize
            .ScaleWidth = PercentSize
        End With
    Next oIshp

    For Each oshp In ActiveDocument.Shapes
        With oshp
            .ScaleHeight Factor:=(PercentSize / 100), _
              RelativeToOriginalSize:=msoCTrue
            .ScaleWidth Factor:=(PercentSize / 100), _
              RelativeToOriginalSize:=msoCTrue
        End With
    Next oshp
End Sub

Запустите макрос для выбранных изображений и укажите процент наибольшего изображения среди выбранного изображения. Значение по умолчанию составляет 75%, что означает, что ВСЕ изображения будут изменены до 75% от самого большого из изображений.

ПРИМЕЧАНИЕ . Все выбранные элементы должны быть изображениями, чтобы этот макрос работал, поскольку Word может выполнять операции изменения размера только для объектов изображений. Если размеры изображений не изменяются правильно, проверьте свои стили и сделайте все изображения соответствующими их собственному уникальному стилю.