Eliminación de menús de la barra de menús
Cambio de la barra de menús
Creación y modificación de menús desplegables y contextuales
Para organizar los menús de la barra de menús, inserte y elimine los que necesite hasta obtener la configuración deseada.
Desplazamiento del primer menú al final de la barra de menús
Este ejemplo elimina el primer menú de la barra de menús y lo inserta como último menú de la barra.
Sub Ch6_MoveMenu()
' Define a variable to hold the menu to be moved
Dim moveMenu As AcadPopupMenu
Dim MyMenuBar As AcadMenuBar
Set MyMenuBar = ThisDrawing.Application.menuBar
' Set moveMenu equal to the first menu displayed
' on the menu bar
Set moveMenu = MyMenuBar.Item(0)
' Remove the first menu from the menu bar
MyMenuBar.Item(0).RemoveFromMenuBar
' Add the menu back into the menu bar
' in the last position on the bar
moveMenu.InsertInMenuBar (MyMenuBar.count)
End Sub