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
|