VBA ボタンから呼び出すマクロに共通の前処理をつける方法

前回の記事で、リボンから呼び出すマクロに共通の前処理をつける方法を紹介した。

同じことは、ワークシートに配置したボタンでもできる。
今回は、以前に紹介したマクロでボタンを作る方法を使ってやってみたいと思う。

コードは以下の通りで、標準モジュールに作成する。

Sub AddButtons()
    Const WSize As Integer = 80
    Const HSize As Integer = 20

    'スペース区切りで配列に。
    Dim Macros() As String
    Macros = Split("Macro1 Macro2", " ")
    
    For i = 0 To UBound(Macros)
        Call CreateButton(Macros(i), i * WSize, 0, WSize, HSize)
    Next
End Sub

Private Sub CreateButton(ButtonName, x, y, w, h)
    With ActiveSheet.Buttons.Add(x, y, w, h)
        .Name = ButtonName 'オブジェクト名と
        .Caption = ButtonName 'ボタンのテキストは面倒なので全部同じにしてしまう。
        .OnAction = "Start"
    End With
End Sub

Sub Start()
    '共通処理
    MsgBox "共通処理サンプル!"
    '個別処理呼び出し
    Application.Run Application.Caller
End Sub

Sub Macro1()
    MsgBox "個別処理：test1"
End Sub

Sub Macro2()
    MsgBox "個別処理：test2"
End Sub