Hallo zusammen,
mit folgender Routine erstelle ich eine eigene Symbolleiste und verknüpfe das Symbol mit einem Makro:
'Erstellen der neuen Symbolleiste
On Error Resume Next
Application.CommandBars("Test Excel").Delete
Set cb = Application.CommandBars.Add(Name:="Test Excel", _
temporary:=True, Position:=msoBarTop, MenuBar:=msoBarTypeNormal, ID:=1)
cb.Visible = True
cb.Enabled = True
Set cbc = cb.Controls.Add(Type:=msoControlButton)
With cbc
.Name = "Blatt_leeren"
.FaceId = 8
.Caption = "Blatt leeren"
.OnAction = "Blatt_leeren"
End With
Leider funktioniert dies nur mit dem ersten Symbol. Wie kann ich ein weiteres Symbol einfügen und mit einem anderen Makro verknüpfen ?
Viele Grüße
Jörg