【Excel VBA】図形にダブルクリックイベントを実装する方法

図形をダブルクリックした際にのみ発生するイベントを実装する方法について説明していきます。

実装方法

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.イベントを呼び出したい図形を右クリックし、マクロの登録をクリックします。