Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Working with Shortcut Menus

Sub ListShortCutMenus()     For Each myCommandBar In CommandBars         If myCommandBar.Type = msoBarTypePopup Then             Debug.Print myCommandBar.Index             Debug.Print myCommandBar.name             For col = 1 To myCommandBar.Controls.Count                 Debug.Print myCommandBar.Controls(col).Caption             Next col         End If     Next myCommandBar End Sub