Excel VBAで画像のサイズを変更するショートカットを作成する

VBAで画像をリサイズするマクロ
コード

VBAで画像をリサイズするマクロ

エビデンス職人をやっている時に画像の調整がめんどくさくて作ったマクロです。

コード

画像サイズを70%にリサイズした後、黒枠線をつけます。
一々マウスクリックなどで実行するのはめんどくさいのでマクロの記録で
個人用マクロブックにマクロを保存した後、そのマクロ内のマクロを以下のように変更します。
メソッド名はおいといて、内容だけ差し替えでOK。

' エビデンス調整マクロ
' Keyboard Shortcut: Ctrl + j
Sub adjustEvidence()
    Selection.ShapeRange.ScaleHeight 0.7, msoFalse, msoScaleFromTopLeft
    With Selection.ShapeRange.Line
            .Visible = msoTrue
            .ForeColor.ObjectThemeColor = msoThemeColorText1
            .ForeColor.TintAndShade = 0
            .ForeColor.Brightness = 0
    End With
End Sub

Book内に存在する画像全部をリサイズ。とかもできますがそれはやりすぎなんですよね。。。

エビ職人への道は遠い。（適当

フォローお願いします！

@marine_menta