【word】 選択した画像のサイズを変更する

Sub 選択した図の大きさ変更() Const MILL As Double = 0.3527 ' mm に変換する定数を宣言 With Selection .InlineShapes(1).LockAspectRatio = msoFalse ' アスペクト比 保持しない → Height,Width 個別設定 '.InlineShapes(1).LockAspectRatio = msoTrue ' アスペクト比 保持する → Height, Width いずれか設定 .InlineShapes(1).Height = 13.52 / MILL .InlineShapes(1).Width = 136.53 / MILL End With End Sub

選択した範囲の全画像の場合は

sub 選択した範囲の図の大きさ変更()

Const MILL As Double = 0.3527           ' mm に変換する定数を宣言

With Selection
    For i = 1 To .InlineShapes.Count
            .InlineShapes(i).LockAspectRatio = msoFalse ' アスペクト比 保持しない → Height,Width 個別設定
           '.InlineShapes(i).LockAspectRatio = msoTrue ' アスペクト比 保持する → Height, Width いずれか設定
            .InlineShapes(i).Height = 13.52 / MILL
            .InlineShapes(i).Width = 136.53 / MILL
    Next
End With

End Sub