kann mir jemand sagen, wie ich bei der Erstellung von eigenen Menues auch mehrere Untermenues erzeugen kann?
Bisher habe ich es nur auf eine Ebene geschafft nach dem aufgeführten Beispiel.
Ich wäre sehr froh, wenn mir jemand hier weiterhelfen könnte.
Besten Dank im Voraus
Mit freundlichen Gruessen
Dirk
Anhang:
Private Sub Workbook_Open()
Dim objBar As CommandBar
Dim objPopUp As CommandBarPopup
Dim objBtn As CommandBarButton
Dim strBar As String
strBar = "Test"
On Error Resume Next
Application.CommandBars(strBar).Delete
On Error GoTo 0
Set objBar = Application.CommandBars.Add( _
Name:=strBar, _
Position:=msoBarTop, _
MenuBar:=True, _
temporary:=True)
Set objPopUp = objBar.Controls.Add(Type:=msoControlPopup)
objPopUp.Caption = "Diagramme"
Set objBtn = objPopUp.Controls.Add
With objBtn
.Caption = "Teilnehmer"
.OnAction = "Diag1"
.Style = msoButtonCaption
End With
End Sub