◆◆MS-Excel2000スキルアップ講座/VBA編◆◆

VBAで、シートにコマンドボタンを作成する

VBA を使ってsheet にコマンドボタンを作成できるのでしょうか？具体的には、sheet A に　オブジョクト名が　"AA"、Captionが"AAA"のコマンドボタンを作成し、そのコマンドボタンをクリックしたときに、すなわち、 Private sub AA_Click() に　VBAのコードを設定するようにする。例えば、sheets("B").selectを設定する。これら一連のことを　Excel VBAで作成するには、どのようにするのでしょうか。

VBAで自動的にプロシージャを作成する方法を、尋ねておられる様な気がしますが、元々作成済みのプロシージャを割り付けるのでは駄目ですか？

サンプルを後述しますのでご参考下さい。

Sub test()
    Sheets.Add
    With ActiveSheet.Buttons.Add(73.5, 21.75, 66.75, 22.5)
        .Name = "AA"
        .Caption = "AAA"
        .OnAction = "SelectSheetB"
    End With
End Sub

Sub SelectSheetB()
    Sheets("B").Select
End Sub