Mega Code Archive

 

Categories / VisualBasic Script / Application

 

Show All Toolbar Controls

Sub ShowAllToolbarControls()     Cells.Clear     Row = 1     For Each myCommandBar In CommandBars         If myCommandBar.Type = msoBarTypeNormal Then             Cells(Row, 1) = myCommandBar.Name             For Each ctl In myCommandBar.Controls                 Cells(Row, 2) = ctl.Caption                 Row = Row + 1             Next ctl         End If     Next myCommandBar End Sub