ich habe versucht mit untemstehenden Code ein Menü zu erstellen.
aber leider funktioniert es nicht [obwohl keine Fehlermeldung erscheint]
Sub AddMenuCascade()
'
Dim cbmCommandBarMenu As CommandBar
Dim cbmDemoMenu As CommandBarPopup
Dim cbmCommandBarMenuCascade As CommandBarPopup
' Clear the way for new menu.
On Error Resume Next
Application.CommandBars("Menu Bar") _
.Controls("&Demo Menu").Delete
' Identify built-in menu bar to work with.
Set cbmCommandBarMenu = Application _
.CommandBars("Menu Bar")
' Add the new menu.
With cbmCommandBarMenu.Controls
Set cbmDemoMenu = _
.Add(Type:=msoControlPopup, Before:=3)
' Set caption for new menu.
With cbmDemoMenu
.Caption = "&Demo Menu"
' Add single menu item and set properties.
With .Controls.Add(msoControlButton)
.OnAction = "DisplayMessage"
.Caption = "Demo &Menu Item"
.Tag = "DemoMenuItem"
End With
End With
' Add cascading menu and set properties.
Set cbmCommandBarMenuCascade = _
cbmDemoMenu.Controls.Add(msoControlPopup)
With cbmCommandBarMenuCascade
.Caption = "Demo Cascade"
' Add first cascading menu item and set properties.
With .Controls.Add(msoControlButton)
.Caption = "&Cascade Item 1"
.OnAction = "DisplayMessage"
.Tag = "Cascade Item 1"
End With
' Add second cascading menu item and set properties
With .Controls.Add(msoControlButton)
.Caption = "Cascade I&tem 2"
.OnAction = "DisplayMessage"
.Tag = "Cascade Item 2"
End With
End With
End With
End Sub
Zur Erklärung:
normalerweise sollte dieser Code ein Menü zwischen "Bearbeiten" und "Ansicht" erstellen.
Hoffentlich kann einer von Euch mir einen Hinweis geben, woran es liegen könnte.
Dank im vorraus!
Hendrik