【Excel】選択している画像を整形する

Sub 選択している画像を整形する()

    If VarType(ActiveWindow.Selection) = vbObject Then
        Set tgtShapes = ActiveWindow.Selection.ShapeRange
        For Each shp In tgtShapes
            shp.LockAspectRatio = True   '縦横の比率を固定
            shp.Height = 400             '高さを設定
        Next shp
    Else
        MsgBox "画像が選択されていません。", vbCritical
    End If

End Sub

使用例

対象の画像を選択後、当マクロを実行する。
マニュアルやエビデンス作成時の画面サイズを統一させる必要があるときに利用できる。