概要 - メニュー バーのメニュー項目を並べ直す(VBA/ActiveX)

メニュー バーのメニューを並べ直すには、目的の構成となるまでメニューの挿入と削除を行います

先頭のメニューをメニュー バーの最後に移動する

以下の例は、メニュー バーの先頭のメニューを削除し、メニューの最後に挿入します。

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