Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Adding the Budgeting menu to Excels 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