Um Probleme mit der Symbolleiste beim Kopieren der Dateien zu vermeiden, habe ich versucht die Symbolleiste mit Makro zu erstellen.
Passt, aber nur auf meinen Rechner..
Auf anderen Rechner kommt Fehlermeldung:
Projekt oder Bibliothek nicht gefunden.
Wie kann ich Code ändern?
Gruss u. Dank im voraus
gio
'Symbolleiste mit Menü mit Untermenü, Textfeld, und Dropdown erstellen
Sub Auto_Open()
On Error Resume Next
Application.CommandBars("Menü-Montageanleitung").Delete 'eventuell bestehende Leiste erst löschen
'Commandbar erstellen
Set ccb = CommandBars.Add("Menü-Montageanleitung") ----FEHLERMELDUNG HIER?---
'Menü erzeugen
Set ccbDu = ccb.Controls.Add(msoControlPopup)
ccbDu.Caption = "Überschrift"
'Menüzeilen erstellen
Set pop1 = CommandBars("Menü-Montageanleitung").Controls(1)
'erste Menüzeile erzeugen
With pop1.CommandBar.Controls.Add(Before:=1, Type:=msoControlButton)
.Caption = "neue Überschrift gross"
.OnAction = "neuInhalt"
.FaceId = 12
End With
...
...
.
.