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