Dieses Beispiel erstellt eine neue Symbolleiste mit 3 Symbolen und
weist den Symbolen 3 unterschiedliche Makros zu:

Const Symbolleistenname = "Meine Symbolleiste"

Sub Symbolleiste_erstellen()
    Set CB = Application.CommandBars.Add(Name:=Symbolleistenname, _
       temporary:=True, Position:=msoBarTop)
    CB.Visible = True
    Set CBC = CB.Controls.Add(Type:=msoControlButton)
    With CBC
        .FaceId = 59
        .Caption = "Symbol 1"
        .OnAction = "Makro1"
    End With
    Set CBC = CB.Controls.Add(Type:=msoControlButton)
    With CBC
        .FaceId = 66
        .Caption = "Symbol 2"
        .OnAction = "Makro2"
    End With
    Set CBC = CB.Controls.Add(Type:=msoControlButton)
    With CBC
        .FaceId = 67
        .Caption = "Symbol 3"
        .OnAction = "Makro3"
    End With
End Sub

Sub Symbolleiste_l�schen()
    On Error Resume Next
    Application.CommandBars(Symbolleistenname).Delete
End Sub

Sub Makro1()
    MsgBox "Makro 1"
End Sub

Sub Makro2()
    MsgBox "Makro 2"
End Sub

Sub Makro3()
    MsgBox "Makro 3"
End Sub

Damit die neue Symbolleiste nur dann erscheint,
wenn diese Datei ge�ffnet wird gen�gen diese beiden Routinen
unter "DieseArbeitsmappe":
Private Sub Workbook_Open()
    Call Symbolleiste_erstellen
End Sub

Private Sub Workbook_BeforeClose(Cancel As Boolean)
    Call Symbolleiste_l�schen
End Sub

Beispieldatei - 14 KB