Neue Symbolleiste mit Symbolen erstellen

30.05.2002

 

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