Wordマクロ 画像サイズの変更

Question

プログラミングは、全く分からないのですが、Wordマクロのコードを教えてください。

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

Answer 1

プログラミングが全く分からないのであれば、
回答でサンプルコードを書いても全く分からないのでは？

また、OSのバージョンを記載してますが、
実は厳密にはOfficeのバージョンも記載しないと、
もらったコードが動かないこともあり得ます。

とはいえ、ワードの情報が少なすぎるのも事実。

画像と写真をプログラムで区別する方法は知りませんが、ご参考まで。

    Dim Shp As InlineShape
    For Each Shp In ActiveDocument.InlineShapes
        With Shp
            .LockAspectRatio = msoFalse '縦横比を固定する：OFF
            .Height = Application.MillimetersToPoints(31) '高を設定(mm)
            .Width = Application.MillimetersToPoints(54)  '幅を設定(mm)
        End With
    Next

    For Each Shp In ActiveDocument.InlineShapes
        With Shp
            .LockAspectRatio = msoTrue '縦横比を固定する：ON
            .ScaleHeight = 30   '高：元の大きさの20％
            .ScaleWidth = 30    '幅：元の大きさの20％
        End With
    Next

Comments

[退会済みユーザー]

ご回答ありがとうございます。試してみます。