図形をダブルクリックした際にのみ発生するイベントを実装する方法について説明していきます。
実装方法
1.以下のコードを適当なモジュールに貼り付けます。
''' <summary>
''' 図形をダブルクリックした際のイベントを実行する
''' </summary>
''' <remarks></remarks>
Public Sub Shape_DoubleClick()
Static shpName As String
Static clickTime As Double
Select Case shpName
Case ""
shpName = Application.Caller
clickTime = CDbl(Now)
Exit Sub
Case shpName
If Now - CDbl(clickTime) <= CDbl(CDate("00:00:01")) Then
'---この下に実行される処理を書く---
MsgBox (shpName & "がクリックされました。")
'---ここまで---
End
Else
End
End If
Case Else
End
End Select
End Sub
2.イベントを呼び出したい図形を右クリックし、マクロの登録をクリックします。

3.手順1で登録したメソッドをダブルクリックします。

以上で作業は完了です。