Symbolleiste automatisch erstellen
31.03.2005 07:59:36
gio
habe im Netz diese Vorlage gefunden, um eine Symbolleiste zu erstellen.
Passt ganz gut.
Einziges Problem, es wäre gut wenn eine eigene Symbolleiste angelegt wird und nicht einfach die Menüs bei der Hauptsymbolleiste erweitert werden.
Wie muss ich das Makro verändern, damit eigene Leiste erzeugt wird wo dann die Menüs angelgt werden?
Danke
gio
Vorlage:
http://www.bueche.de/Deutsch/VBA/VBATips.htm
Sub Auto_Open()
Set ML = Application.CommandBars("Worksheet Menu Bar")
' Name für neues Menü wird gesetzt
Set U1 = ML.Controls.Add(Type:=msoControlPopup, Before:=10)
U1.Caption = "&Mein Menü"
U1.Tag = "MeinMenü" ' dient zur eindeutigen Identifizierung des Menüs
' 1. Menüpunkt wird angelegt
Set Punkt = U1.Controls.Add(Type:=msoControlButton)
With Punkt
.Caption = "&1. Menüpunkt"
.OnAction = "Makro1"
.Style = msoButtonIconAndCaption
.FaceId = 2103
End With
End Sub
Sub Auto_Close()
Set ML = Application.CommandBars("Worksheet Menu Bar")
On Error Resume Next ' Fehlerbehandlung
ML.FindControl(Tag:="MeinMenü").Delete
End Sub