Word：パーセントで画像のサイズを変更する - マクロ

私は日常的に多くのスクリーンキャプチャをMicrosoft Word 2007に貼り付けていますが、手動でそれらのサイズを75％前後に変更する必要がありますが、これは非常に面倒です。

スクリーンキャプチャはすべて異なるサイズです。

このためにマクロを作成しようとしましたが、選択した画像を特定のサイズにリサイズするマクロしか作成できません。また、マクロレコーダーに、ドキュメントウィンドウで手動でサイズ変更したり、サイズダイアログを使用して認識させることはできません。

選択した画像を現在のサイズの75％にリサイズするマクロを書くことは可能ですか？

この質問 私のものに似ていますが、ユーザーの要求は彼のすべての画像を同じサイズにリサイズすることです。任意の高さ/幅の画像をリサイズする必要があります。

私は最初から小さいサイズで画像を貼り付けるというテクニックも受け入れています。

このコードをドキュメントのVBAエディタ（Alt + F11）のモジュールにコピーします。まだモジュールがない場合は、挿入メニューから追加することを選択できます。

    Sub PicResize()
     Dim PercentSize As Integer

     PercentSize = 75

     If Selection.InlineShapes.Count > 0 Then
         Selection.InlineShapes(1).ScaleHeight = PercentSize
         Selection.InlineShapes(1).ScaleWidth = PercentSize
     Else
         Selection.ShapeRange.ScaleHeight Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
         Selection.ShapeRange.ScaleWidth Factor:=(PercentSize / 100), _
           RelativeToOriginalSize:=msoCTrue
     End If
 End Sub

このマクロを実行するには、Alt + F8を押し、マクロのリストからPicResizeを選択して[実行]をクリックします。毎回クリックしてマクロを実行したい場合は、メニュー内のボタンに割り当てることもできます。