workbook_open () tuts nicht
14.01.2005 10:32:04
Hasselberg
Ich habe mir aus dem Archiv das folgende Listing kopiert und in ein Klassenmodul (nicht Modul) eingefügt. Leider erscheint beim Öffnen der Datei aber kein Menü. Hat jemand einen Rat?
Peter
Private Sub Workbook_Open()
Dim cbMenu As CommandBar
Dim cbSpecialMenu As CommandBarPopup
Dim cbCommand As CommandBarControl
'Zuweisen der Objectvariablen
Set cbMenu = Application.CommandBars("Worksheet Menu Bar")
Set cbSpecialMenu = cbMenu.Controls.Add(Type:=msoControlPopup)
'Titelbeschriftung der Menübar
cbSpecialMenu.Caption = "Eigenes Menü"
'Einen Button hinzufügen und diesen gleich beschriften
Set cbCommand = cbSpecialMenu.Controls.Add(Type:=msoControlButton)
cbCommand.Caption = "Menüpunkt 1"
cbCommand.OnAction = "Mein Makro"
End Sub
Anzeige