Adding a menu: Take 1 : Menu « Application « VBA / Excel / Access / Word

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

Adding a menu: Take 1

 
Sub AddNewMenu()
    HelpIndex = CommandBars(1).Controls("Help").Index
    Set NewMenu = CommandBars(1).Controls.Add _
      (Type:=msoControlPopup, _
       Before:=HelpIndex, _
       Temporary:=True)
    NewMenu.Caption = "&Java2s"
End Sub

 

Related examples in the same category