☰

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% です。つまり、すべての画像が最大の画像の 75% にサイズ変更されます。

注記: このマクロが機能するには、選択したすべての項目が画像である必要があります。これは、Word がサイズ変更操作を実行できるのは画像オブジェクトに対してのみであるためです。画像のサイズが正しく変更されない場合は、スタイルを確認し、すべての画像が独自のスタイルに一致するようにしてください。

関連情報