VBA-Code für Menuebar-Erweiterung
04.03.2005 15:56:11
Rudolf
ich würde gern die Excel Menueleiste um einen eigenen Menueeintrag mit Buttons und Untermenues erweitern. Anhand der von mir im Internet zusammengesuchten Code-Schnipsel kriege ich einen zusätzlichen Menueeintrag mit Buttons auch hin. Da ich aber keine VBA-Profi bin, will es mir einfach nicht gelingen, ein Untermenue per VBA zu erzeugen. Der Makrorecorder hilft mir auch nicht weiter. Wäre für Eure Hilfe sehr dankbar,
Rudolf.
Hier mein Code mit dem Problem zwischen den ?
Private Sub Workbook_Open()
Dim cbMenu As CommandBar
Dim cbSpecialMenu As CommandBarPopup
Dim cbCommand As CommandBarControl
'Zuweisen der Objektvariablen
Set cbMenu = Application.CommandBars("Worksheet Menu Bar")
Set cbSpecialMenu = cbMenu.Controls.Add(Type:=msoControlPopup)
'Titelbeschriftung der Menubar
cbSpecialMenu.Caption = "Spezial"
'Einen Button hinzufügen und beschriften
Set cbCommand = cbSpecialMenu.Controls.Add(Type:=msoControlButton)
cbCommand.Caption = "Leerzeichen entfernen"
cbCommand.OnAction = "leerzeichen_entfernen"
'Ein Untermenue hinzufügen und beschriften
Set cbCommand = cbSpecialMenu.Controls.Add(Type:=msoControlButton)
cbCommand.Caption = "Rohrnetzliste"
'Dem Untermenue einen Button hinzufügen und beschriften
Set cbCommand = cbSpecialMenu.Controls.Add(Type:=msoControlButton)
cbCommand.Caption = "Rohrnetzliste importieren"
cbCommand.OnAction = "Import_Rohrnetzdaten"
'Dem Untermenue noch einen Button hinzufügen und diesen gleich beschriften
Set cbCommand = cbSpecialMenu.Controls.Add(Type:=msoControlButton)
cbCommand.Caption = "Rohrnetzliste speichern"
cbCommand.OnAction = "Save_Rohrnetzdaten"
End Sub