How to create a menu item with vba

m09366023695 — Thu, 19 Jan 2023 06:19:07 GMT

I found this function to create menu:

Public Sub AddMenus() 'Jonathan D. Kriek Dim currMenuGroup As AcadMenuGroup Dim newMenu As AcadPopupMenu Dim newMenuItem As AcadPopupMenuItem Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0) On Error Resume Next 'Assign new menu Set newMenu = currMenuGroup.Menus.Item("TrinityTools") 'If menu doesn't exist then add it If newMenu Is Nothing Then Set newMenu = currMenuGroup.Menus.Add("TrinityTools") End If 'Check if Menu is displayed on MenuBar If Not newMenu.OnMenuBar Then 'Add the eBLoader macro to the menu Set newMenuItem = newMenu.AddMenuItem(newMenu.count + 1, _ "Release To eB", "-vbarun eBLoader ") newMenuItem.HelpString = "Release To eB" 'Add the DrawingTypeLoad macro to the menu Set newMenuItem = newMenu.AddMenuItem(newMenu.count + 1, _ "Set Drawing Type", "-vbarun DrawingTypeLoad ") newMenuItem.HelpString = "Set Drawing Type" 'Display the menu on the menu bar newMenu.InsertInMenuBar (ThisDrawing.Application.MenuBar.count + 1) End If 'Save menu currMenuGroup.Save (acMenuFileCompiled) End Sub

but after run it I cannot see a new menu.

Re: How to create a menu item with vba

seabrahenrique — Thu, 19 Jan 2023 11:57:05 GMT

Hello,

Have you consider to use the "CUI" command to build your menu?

I guess is a better solution than build by a code.

I hope can help u.

Re: How to create a menu item with vba

m09366023695 — Thu, 19 Jan 2023 15:44:12 GMT

I writing a macro and need to a menu to show user.

Re: How to create a menu item with vba

Ed__Jobe — Thu, 19 Jan 2023 18:23:55 GMT

Menus are not used very much anymore. By default, it is off and only the ribbon shows. Do you have MENUBAR set to 1?

topic Re: How to create a menu item with vba in VBA Forum

How to create a menu item with vba

Re: How to create a menu item with vba

Re: How to create a menu item with vba

Re: How to create a menu item with vba