List Menu Information : Menu « Application « VBA / Excel / Access / Word

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

List Menu Information

 
Sub ListMenuInfo()
    On Error Resume Next
    For Each Menu In CommandBars(1).Controls
        For Each MenuItem In Menu.Controls
            For Each SubMenuItem In MenuItem.Controls
                Debug.Print Menu.Caption
                Debug.Print MenuItem.Caption
                Debug.Print SubMenuItem.Caption
            Next SubMenuItem
        Next MenuItem
    Next Menu
End Sub

 

Related examples in the same category