Create a popup menu : Menu « Application « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Application
3. Menu

Create a popup menu

 
Sub CreatePopup()
    Dim cbpop As CommandBarControl
    Dim cbctl As CommandBarControl
    Dim cbsub As CommandBarControl
    Set cbpop = Application.CommandBars("Worksheet Menu Bar"). _
      Controls.Add(Type:=msoControlPopup)
    cbpop.Caption = "&Custom"
    cbpop.Visible = True
    Set cbctl = cbpop.Controls.Add(Type:=msoControlButton)
    cbctl.Visible = True
    cbctl.Style = msoButtonCaption
    cbctl.Caption = "MenuItem&1"
    cbctl.OnAction = "ExampleMacro1"
    Set cbsub = cbpop.Controls.Add(Type:=msoControlPopup)
    cbsub.Visible = True
    cbsub.Caption = "&SubMenuItem1"
    Set cbctl = cbsub.Controls.Add(Type:=msoControlButton)
    cbctl.Visible = True
    cbctl.Style = msoButtonCaption
    cbctl.Caption = "SubMenuItem&2"
    cbctl.OnAction = "ExampleMacro2"
End Sub

 

Related examples in the same category