オートシェイプを比率で拡大縮小させるマクロ

Selection.ShapeRange.Width = Selection.ShapeRange.Width / 2
とか、やればよい。ちなみにScaleHeight, ScaleWidthってメソッドもあるが、そっちは実際に画像を小さくする効果があるようだ。


Call Selection.ShapeRange.ScaleHeight(0.5, msoFalse)
Call Selection.ShapeRange.ScaleWidth(0.5, msoFalse)