概要 - 新しいメニューを作成する(VBA/ActiveX)

新しいメニューを作成するには、Add メソッドを使用して PopupMenus コレクションに新しい PopupMenu オブジェクトを追加します。

ショートカット メニューを新規作成するには、既存のショートカット メニューを削除する必要があります。メニュー グループ当たり 1 つのショートカット メニューしか許されません。メニュー グループにショートカット メニューがない場合は、ラベル "POP0" を使用してメニューを追加することができます。このラベルは、ショートカット メニューを作成することを AutoCAD に指示するためのものです。

Add メソッドには、追加するメニューの名前(ラベル)を入力する必要があります。メニューをメニュー バーにロードしたときに、この名前がメニューのタイトルとなります。名前は、コレクション内でメニューを簡単に識別するための手段にもなります。

メニュー名は単純な文字列であっても、特殊コードが入っていてもかまいません。メニューを作成した後で、名前を変更することができます。既存のメニューの名前を変更するには、そのメニューの Name プロパティを使用します。

新しいポップアップ メニューを作成する

次の例は、MenuGroups コレクションの最初のメニュー グループに "TestMenu" という名前のポップアップ メニューを作成します。

Sub Ch6_CreateMenu()
 Dim currMenuGroup As AcadMenuGroup
 Set currMenuGroup = ThisDrawing.Application.MenuGroups.Item(0)

 ' Create the new menu
 Dim newMenu As AcadPopupMenu
 Set newMenu = currMenuGroup.Menus.Add("TestMenu")
End Sub