Word 2010 画像ファイル 一括 サイズ変換 マクロ

■Word 2010 画像ファイルの一括サイズ変換するマクロ

下記のスクリプトをマクロに記載して実行。
高さの指定を、10㎝にしていますが、幅を指定する場合は、Height の代わりに、Width と記述してください。

ただし、取り込んだ画像サイズによって若干サイズのズレがでてきます。

－－－－－－－－－－－－－－－－
Sub Sample()
Const milimeter = 0.352778
Dim I As InlineShape
For Each I In Selection.InlineShapes
I.LockAspectRatio = msoTrue
I.Height = 100 / milimeter
Next
End Sub
－－－－－－－－－－－－－－－－

■マクロ記述手順

1. ［開発］タブ－［マクロ］－［作成］

2.　適当なマクロ名を記載し、上記のコードをコピペして保存。

3. ［ファイル］－ ［オプション］”クイックアクセスツールバー”＞コマンドの選択：マクロ　－ 先ほど作成したマクロを選択 － ［追加］

4. [変更] － 適切なマクロボタンを選び、［OK］

4. 作成したマクロが登録されたアイコンが作成される。

5.高さを揃えたい、画像を選択し、マクロアイコンをクリック

6.画像ファイルの高さが一括で均一になる