Wordって画像を選択した状態でマクロの記録を始められないのね。不便。仕方がないので選択されている図形を66%に縮小するマクロを作ってキーに割り当てて切り抜ける。 Sub set66per() Dim shp As Shape For Each shp In Selection.ShapeRange shp.ScaleHeigh…