Mega Code Archive

 

Categories / VisualBasic Script / Application

 

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