Symbolleiste automatisch erstellen

Bild

Betrifft: Symbolleiste automatisch erstellen von: gio
Geschrieben am: 31.03.2005 07:59:36

Hallo,
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

Bild


Betrifft: AW: Symbolleiste automatisch erstellen von: Worti
Geschrieben am: 31.03.2005 08:04:06

Hallo,
hilt dir das hier Weiter:
http://www.spotlight.de/nzforen/mse/m/mse-1112098439-15.html

Gruß Worti


Bild


Betrifft: AW: Symbolleiste automatisch erstellen von: gio
Geschrieben am: 31.03.2005 08:09:24

Vielen Dank,
jetzt hab ich alles um es alleine voran zukommen.
Danke Worti u. Gruss aus Südtirol


 Bild

Beiträge aus den Excel-Beispielen zum Thema "Symbolleiste automatisch erstellen"