将PopMenu插入菜单栏

Sub Load_and_Insert_Menu()
Dim MenuGroup As AcadMenuGroup
Dim PopMenu As AcadPopupMenu
Dim SelectedMenuGroup As String, LoadedPopMenu As String
Dim Retval As Variant
On Error Resume Next
'This part Loads the menu
SelectedMenuGroup = "K:\Directory\Directory\Directory\Menufilename.mnc" '<--- Type in the path to your menufile here.
Set MenuGroup = ThisDrawing.Application.MenuGroups.Load(SelectedMenuGroup, False)
LoadedPopMenu = ("&Pulldown")'Type in the pulldown that you want in the menubar from the above loaded menu.You must include the accelerator (&) if one exists
Set PopMenu = MenuGroup.Menus.Item(LoadedPopMenu)
                   
'This part inserts the pulldown that you typed above in the menubar
PopMenu.InsertInMenuBar 10
If MenuGroup Is Nothing Then                                     
 Retval = MsgBox("The "pulldown Menuname" menu is already loaded", vbInformation, "Type whatever you want in the dialog box capion here")
 Exit Sub
Else
 Retval = MsgBox("The "pulldown Menuname"  menu has been successfully loaded", vbInformation, "Type whatever you want in the dialog box capion here") 
 Exit Sub
End If
End Sub