Microsoft Word 2007で画像に一般的なサイズを適用する方法

編集中に、Microsoft Word 2007のすべての画像に特定のサイズを適用することは可能ですか？もしそうなら、どのようにこれを行うことができます。ありがとう

このソースから取得したこの素晴らしいマクロを次に示します。参照リンクの有効期限が切れた場合に備えて、ここに含めました。基本的に、ショートカットを割り当ててこのマクロを保存してから、ドキュメント内のすべての画像を選択する必要があります（スタイルに移動し、割り当てられている画像スタイルを選択します）。

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はイメージオブジェクトに対してのみサイズ変更操作を実行できるため、このマクロが機能するには、選択したすべてのアイテムがイメージである必要があります。画像のサイズが正しく変更されない場合は、スタイルを確認し、すべての画像が独自のスタイルと一致するようにします。