Word編集作業。毎回の画像サイズ変更を楽にできないでしょうか。

Wordで編集作業をしています。毎回写真や画像を貼り付け、サイズ変更します。
写真は、25%に縮小し、画像は、縦31mm×横54mmにします。
写真と画像は縮小サイズが異なるため、マクロ記録のように、一括でサイズ変更ができません。1つ1つの画像を選択した上で、サイズ変更をする作業が手間なので、そのサイズ変更の部分だけマクロ機能などで何とかならないものかと思っています。お知恵をください。どうぞよろしくお願いいたします。（Windows10を使っています。）

No.1 回答者： enunokokoro 回答日時： 2017/11/05 22:07

マクロは苦手なので、参考程度のものですが。

縮小率に関するものだと。
ShapeRange.ScaleHeight メソッド (Word)
https://msdn.microsoft.com/ja-jp/VBA/word-vba/ar …

サイズの指定だと（浮動配置の場合）。
ShapeRange.Height プロパティ (Word)
https://msdn.microsoft.com/ja-jp/VBA/word-vba/ar …

サイズの指定だと（行内配置の場合）。
Range.InlineShapes プロパティ (Word)
https://msdn.microsoft.com/ja-jp/VBA/word-vba/ar …

マクロの例（縦横比が同じ場合）
Sub sample()
　With Selection.ShapeRange
　.Height = Application.MillimetersToPoints(31)
　.Width = Application.MillimetersToPoints(54)
　End With
End Sub