Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Adding menu items to shortcut menus

Sub AddItemToShortcut()     Set NewItem = CommandBars("Cell").Controls.Add     With NewItem        .Caption = "Toggle Word Wrap"        .OnAction = "ToggleWordWrap"        .BeginGroup = True     End With End Sub