- 754 名前：デフォルトの名無しさん [2008/08/10(日) 08:26:21 ]
- シートに写真を複数枚挿入し、そのサイズ変更を一括で行うにはどうすればいいですか？
シートには写真以外の図形オブジェクトもあり、それらは選択も変更もしません。
jpgだけを複数選択やワイルドカードなど使えるのでしょうか？
1枚だけマクロ記録するとこうなります。
ActiveSheet.Shapes("Picture 1").Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 150.75
Selection.ShapeRange.Width = 201#
