モード選択

以下のVBAコードは、ボタンを押すとメッセージボックスが表示され、ユーザーが「画像1」または「画像2」を選択できるようにします。選択に応じて、あらかじめ設定されているマクロAまたはマクロBが実行されます。

Sub ShowImageSelector()

    Dim selectedImage As String

    

    ' モード選択メッセージボックスを表示

    selectedImage = MsgBox("画像を選択してください。", vbQuestion + vbYesNoCancel, "画像選択")

    

    ' 選択された画像に応じて処理を実行

    Select Case selectedImage

        Case vbYes ' 画像1が選択された場合

            Call Image1_Click ' 画像1のクリック処理を実行

        Case vbNo ' 画像2が選択された場合

            Call Image2_Click ' 画像2のクリック処理を実行

        Case vbCancel ' キャンセルが選択された場合

            ' 何もしない

    End Select

End Sub

Sub Image1_Click()

    ' 画像1がクリックされたときの処理を記述

    ' 例えば、dataシートのA10にある画像1をクリックした場合の処理を記述

    MsgBox "画像1がクリックされました。"

    Call MacroA ' マクロAを実行

End Sub

Sub Image2_Click()

    ' 画像2がクリックされたときの処理を記述

    ' 例えば、dataシートのZ10にある画像2をクリックした場合の処理を記述

    MsgBox "画像2がクリックされました。"

    Call MacroB ' マクロBを実行

End Sub

Sub MacroA()

    ' 画像1の処理を記述

    ' 例えば、dataシートのA10にある画像1をクリックした場合の処理を記述

    MsgBox "マクロAが実行されました。"

End Sub

Sub MacroB()

    ' 画像2の処理を記述

    ' 例えば、dataシートのZ10にある画像2をクリックした場合の処理を記述

    MsgBox "マクロBが実行されました。"

End Sub