Guten Abend zusammen,
wie ist es möglich ein Untermenü in einer CommandBar zu erstellen?
ich habe folgenden Code bereits in der Anwendung.(siehe unten )
Mein Wunsch ist es Reporting zu gliedern und 3 weitere Buttons zu haben.
Ich hoffe ich habe mich verständlich ausgedrückt.
LG Rene
Public Sub AddMenuItem()
Dim cbWSMenuBar As CommandBar
Dim cbc As CommandBarControl
Set cbWSMenuBar = Application.CommandBars("Worksheet Menu Bar")
Set cbc = cbWSMenuBar.Controls.Add(Type:=msoControlPopup, Temporary:=True)
cbc.Tag = "Dashboard"
With cbc
.Caption = "&Dashboard"
With .Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "Reporting"
.OnAction = "Reporting"
.Tag = "Item1"
End With
With .Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "Email versenden"
.OnAction = "EmailSenden"
.Tag = "Item 3"
End With
With .Controls.Add(Type:=msoControlButton, Temporary:=True)
.Caption = "Suchen"
.OnAction = "Mitarbeitersuchen"
.Tag = "Item 3"
End With
End With
End Sub
|