Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Adding a menu

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