Undermenu på dropdown

Klippet lige ud af noget andet, men måske kan du bruge ideen.


Dim MenuItem As CommandBarControl
Dim Submenuitem As CommandBarButton

MENU ITEM
    Set MenuItem = NewMenu.Controls.Add _
      (Type:=msoControlPopup)
    With MenuItem
        .Caption = "View &Charts"
        .BeginGroup = True
    End With
   
'  FIRST SUBMENU ITEM
    Set Submenuitem = MenuItem.Controls.Add _
      (Type:=msoControlButton)
    With Submenuitem
        .Caption = "Monthly &Variance"
        .FaceId = 420
        .OnAction = "Macro3"
    End With
   
'  SECOND SUBMENU ITEM
    Set Submenuitem = MenuItem.Controls.Add _
      (Type:=msoControlButton)
    With Submenuitem
        .Caption = "Year-To-Date &Summary"
        .FaceId = 422
        .OnAction = "Macro4"
    End With

Det kunne jeg godt bruge til noget - men det tog lidt tid at få det til at virke...

Til gengæld fandt jeg ud af FaceId - en lille detalje jeg ikke havde set før - så jeg siger mange tak...

Så smider jeg da lige et svar ind :-)