Wordに貼り付けられている画像を66%に縮小するマクロ

Wordって画像を選択した状態でマクロの記録を始められないのね。不便。仕方がないので選択されている図形を66%に縮小するマクロを作ってキーに割り当てて切り抜ける。

Sub set66per()
    Dim shp As Shape
    For Each shp In Selection.ShapeRange
        shp.ScaleHeight 0.66, True
    Next shp
End Sub