' [327.xls]



' [Module1] のコード
'★★☆　マクロの呼出元を取得する　☆★★

Option Explicit

Dim myname As String

Sub start()

    '変数"myname"には、呼び出したオブジェクトの
    '識別名が格納されます
    myname = Application.Caller
    
    'ここではマクロ名と呼び出したオブジェクト名を揃えてあります
    Select Case myname
        
        '呼び出されたオブジェクト名によりサブマクロを分岐しています
        Case "タイトル"
            mタイトル
        Case "ボタン"
            mボタン
        Case "四角"
            m四角
        Case "楕円"
            m楕円
            
    End Select

End Sub
Sub mタイトル()

    MsgBox "一番上にある実行ボタンから呼び出されました、私の名前は " & myname & " です"

End Sub
Sub mボタン()

    MsgBox "左にあるボタンから呼び出されました、私の名前は " & myname & " です"

End Sub
Sub m四角()

    MsgBox "真ん中にある四角図形から呼び出されました、私の名前は " & myname & " です"

End Sub
Sub m楕円()

    MsgBox "右にある楕円図形から呼び出されました、私の名前は " & myname & " です"

End Sub