Menus & Pull-downs

Is it possible to determine what pull-down belongs to what menu??
Let's say the File pull-down is in the ACAD menu and MyStuff is in a CUSTOM
menu.
How can I programmatically get that info?

I hope my short explaination was clear enough.

Here's my code so far:

Code:

Sub ListMenus()
Dim oMenu As AcadMenuGroup
Dim oPopMenu As AcadPopupMenu
Dim oMenuGroup As AcadMenuGroup
Dim i As Integer

For Each oMenu In Application.MenuGroups
Debug.Print oMenu.MenuFileName
Debug.Print oMenu.Name
Next oMenu

Dim objPopupMenu As AcadPopupMenu

For Each oPopMenu In Application.MenuBar
Debug.Print oPopMenu.NameNoMnemonic
Next
End Sub

 

For Each oPopMenu In Application.MenuBar
Debug.Print oPopMenu.NameNoMnemonic
Debug.Print oPopMenu.Parent.Parent.Name '<- added
Next


--
R. Robert Bell


Is it possible to determine what pull-down belongs to what menu??
Let's say the File pull-down is in the ACAD menu and MyStuff is in a CUSTOM
menu.
How can I programmatically get that info?

I hope my short explaination was clear enough.

Here's my code so far:

Code:

Sub ListMenus()
Dim oMenu As AcadMenuGroup
Dim oPopMenu As AcadPopupMenu
Dim oMenuGroup As AcadMenuGroup
Dim i As Integer

For Each oMenu In Application.MenuGroups
Debug.Print oMenu.MenuFileName
Debug.Print oMenu.Name
Next oMenu

Dim objPopupMenu As AcadPopupMenu

For Each oPopMenu In Application.MenuBar
Debug.Print oPopMenu.NameNoMnemonic
Next
End Sub

 

I was close.
Thanks again for your help.

--
I support two teams: the Red Sox and whoever beats the Yankees.


| For Each oPopMenu In Application.MenuBar
| Debug.Print oPopMenu.NameNoMnemonic
| Debug.Print oPopMenu.Parent.Parent.Name '<- added
| Next
|
|
| --
| R. Robert Bell
|
|
| | Is it possible to determine what pull-down belongs to what menu??
| Let's say the File pull-down is in the ACAD menu and MyStuff is in a
CUSTOM
| menu.
| How can I programmatically get that info?
|
| I hope my short explaination was clear enough.
|
| Here's my code so far:
|
|

Code:

| Sub ListMenus()
|    Dim oMenu As AcadMenuGroup
|    Dim oPopMenu As AcadPopupMenu
|    Dim oMenuGroup As AcadMenuGroup
|    Dim i As Integer
|
|    For Each oMenu In Application.MenuGroups
|        Debug.Print oMenu.MenuFileName
|        Debug.Print oMenu.Name
|    Next oMenu
|
|    Dim objPopupMenu As AcadPopupMenu
|
|    For Each oPopMenu In Application.MenuBar
|        Debug.Print oPopMenu.NameNoMnemonic
|    Next
| End Sub
| 

|
| --
| I support two teams: the Red Sox and whoever beats the Yankees.
|
|
|