☰

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

tag-icon • tag-icon microsoft-word images microsoft-word-2007
Как применить общий размер к изображениям в Microsoft Word 2007

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

решение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 может выполнять операции по изменению размера только для объектов изображений. Если изображения не меняют размер правильно, проверьте стили и приведите все изображения в соответствие с их собственным уникальным стилем.

Связанный контент