Makro läuft nicht
01.04.2005 13:50:45
gio
kann mir einer sagen wieso dieses Makro nicht läuft?
Habe das halbe Internet durchstöbert.
Danke
gio
kommt Fehler Bibliothek nicht gefunden (Set ccb..)
Const MenüMontageanleitung = "Meine Symbolleiste"
'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(Name:="MenüMontageanleitung", temporary:=True)
'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
'zweite Menüzeile erzeugen
With pop1.CommandBar.Controls.Add(Before:=2, Type:=msoControlButton)
.Caption = "neue Überschrift klein"
.OnAction = "neuInhaltklein"
.FaceId = 12
End With
'Togglebutton (Umschaltfläche) erzeugen. Ein normaler Button,
'der über das zugeornete Makro (OnAction = "Ein_Aus") gesteuert wird.
Set ccbT = ccb.Controls.Add(msoControlButton)
With ccbT
.Caption = ""
.Style = msoButtonIconAndCaption
.FaceId = 18
.OnAction = "Blattneu"
End With
ccb.Visible = True 'setzt die Menüleiste auf sichtbar
Application.StatusBar = "Text"
End Sub
Anzeige