Adding the Budgeting menu to Excel's main menu bar : Menu « Application « VBA / Excel / Access / Word

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

Adding the Budgeting menu to Excel's main menu bar

 
Sub AddNewMenu()
    Dim HelpMenu As CommandBarControl
    Dim NewMenu As CommandBarPopup
    Set HelpMenu = CommandBars(1).FindControl(ID:=30010)
    If HelpMenu Is Nothing Then
        Set NewMenu = CommandBars(1).Controls _
         .Add(Type:=msoControlPopup, Temporary:=True)
    Else
        Set NewMenu = CommandBars(1).Controls _
         .Add(Type:=msoControlPopup, Before:=HelpMenu.Index, _
         Temporary:=True)
    End If
    NewMenu.Caption = "&newCommand"
End Sub

 

Related examples in the same category