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

excel

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



Call Selection.ShapeRange.ScaleHeight(0.5, msoFalse)

Call Selection.ShapeRange.ScaleWidth(0.5, msoFalse)