図を挿入したときにマクロを実行したい

質問

図の書式を操作するマクロを作ったのですが、
挿入した図全てで、このマクロを実行するので
図を挿入したときにこのマクロを自動で実行したいのですが、
そのようなことはできるのでしょうか?

回答No.1

misatoanna · ベストアンサー

次のように記述されたらいかがでしょうか。

Sub 図挿入()
　　Dim cnt As Integer, pic As Variant
　　pic = Dialogs(wdDialogInsertPicture).Show
　　If pic = "" Then Exit Sub
　　cnt = ActiveDocument.Shapes.Count
　　ActiveDocument.Shapes(cnt).Select
　　With Selection.ShapeRange　　'ここで書式を指定
　　　　.Top = 100
　　　　.Left = 175
　　End With
End Sub

実行すると、[図の挿入ダイアログ]が表示されますので、挿入する図を指定します。

回答No.2

misatoanna

＃１の補足です。
前回のはWordでの記述例です。

Excelでしたら、次のようになりますね。

<前省略>
pic = Application.Dialogs(xlDialogInsertPicture).Show
If pic = "" Then Exit Sub
cnt = ActiveSheet.Shapes.Count
ActiveSheet.Shapes(cnt).Select
<以下省略>