Listing Application CommandBars : Application « Application « VBA / Excel / Access / Word

1. VBA / Excel / Access / Word
2. Application
3. Application

Listing Application CommandBars

 
Sub Inventory()
    Dim cb As commandBar
    For Each cb In Application.CommandBars
        Debug.Print cb.name
        Debug.Print cb.Index
        Debug.Print cb.BuiltIn
        Debug.Print cb.Enabled
        Debug.Print cb.Visible
        Debug.Print cb.Controls.Count
    Next
    Set cb = Nothing
End Sub

 

Related examples in the same category