エクセルVBAで。

質問

エクセルのVBAで写真台帳を作成しようと思っているのですが、画像をいちいちリサイズするのが面倒なので、画像を貼り付けたら勝手にある大きさにしてくれるようなマクロは作れるでしょうか。よろしくお願い致します。

回答No.1

marbin

画像ファイルをシートに貼り付け、
サイズを変更する作業をマクロの
自動記録で出来ました。

出来上がったコードをちょっと改造すれば
ＯＫかと。
----------------
Sub Macro1()
ActiveSheet.Pictures.Insert("D:\デスクトップ\aa\bb\cc\DSCF00001.JPG"). _
Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 288#
Selection.ShapeRange.Width = 384#
Selection.ShapeRange.Rotation = 0#
Range("I6").Select
End Sub