Menus.AddAt メソッド (Visio)
Menus コレクション内の指定したインデックス位置に新しい Menu オブジェクトを作成します。
式。 AddAt
( _lIndex_
)
式Menus オブジェクトを表す変数。
名前 | 必須 / オプション | データ型 | 説明 |
---|---|---|---|
Lindex | 必須 | Long | オブジェクトを追加する位置を表すインデックスです。 |
メニュー
注意
Visio 2010 以降、Microsoft Office Fluent ユーザー インターフェイス (UI) は、以前の階層化されたメニュー、ツール バー、作業ウィンドウのシステムを置き換えました。 以前のバージョンの Visio でユーザー インターフェイスをカスタマイズするために使用した VBA オブジェクトとメンバーは、Visio では引き続き使用できますが、機能は異なります。
インデックスがゼロ (0) の場合、コレクションの先頭にオブジェクトが追加されます。
Menus コレクションの先頭は、メニューを水平に配置した場合に左端に表示されるメニューを表します。
次のマクロは、ユーザー インターフェイスにメニューとメニュー項目を追加する方法を表しています。
この例では、アクティブな Visio 図面に関連付けられた Microsoft Visual Basic for Applications (VBA) プロジェクトに MyMacro というマクロが既に存在していると仮定しています。
Public Sub AddAt_Example()
Dim vsoUI As Visio.UIObject
Dim vsoMenuSets As Visio.MenuSets
Dim vsoMenuSet As Visio.MenuSet
Dim vsoMenus As Visio.Menus
Dim vsoMenu As Visio.Menu
Dim vsoMenuItems As Visio.MenuItems
Dim vsoMenuItem As Visio.MenuItem
'Get a UI object that represents Visio built-in menus.
Set vsoUI = Visio.Application.BuiltInMenus
'Get the MenuSets collection.
Set vsoMenuSets = vsoUI.MenuSets
'Get the drawing window menu set.
Set vsoMenuSet = vsoMenuSets.ItemAtID(visUIObjSetDrawing)
'Get the Menus collection.
Set vsoMenus = vsoMenuSet.Menus
'Add a Demo menu.
Set vsoMenu = vsoMenus.AddAt(7)
vsoMenu.Caption = "Demo"
'Get the MenuItems collection.
Set vsoMenuItems = vsoMenu.MenuItems
'Add a menu item to the new Demo menu.
Set vsoMenuItem = vsoMenuItems.Add
'Set the properties for the new menu item.
vsoMenuItem.Caption = "Run &MyMacro"
vsoMenuItem.AddOnName = "ThisDocument.MyMacro"
vsoMenuItem.ActionText = "Run MyMacro"
'Tell Visio to use the new UI when the document is active.
ThisDocument.SetCustomMenus vsoUI
End Sub
Office VBA またはこの説明書に関するご質問やフィードバックがありますか? サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。