Susan Harkins
harkins at iglou.com
Sat Apr 5 20:03:06 CST 2003
The following function lists the commands on the active menu bar -- my
question is about the visible/invisible commands? If you remove the If that
checks for the Visible property you get a huge list of commands, some I
don't even recognize. What are these invisible commands?
Susan H.
Function NameMenuCommands()
Dim menubar As CommandBar
Dim menucommand As CommandBarPopup
'Dim menucommand As CommandBar
Set menubar = CommandBars.ActiveMenuBar
For Each menucommand In menubar.Controls
If menucommand.Visible = True Then
Debug.Print menucommand.CommandBar.Name
End If
Next
End Function