Метод Menus.AddAt (Visio)
Создает новый объект Menu по указанному индексу в коллекции Menus .
выражение. AddAt
( _lIndex_
)
Выражение Переменная, представляющая объект Menus .
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
Lindex | Обязательный | Long | Индекс, по которому добавляется объект . |
Меню
Примечание
Начиная с Visio 2010 пользовательский интерфейс Microsoft Office Fluent заменил предыдущую систему многоуровневых меню, панелей инструментов и областей задач. Объекты И члены VBA, которые использовались для настройки пользовательского интерфейса в предыдущих версиях Visio, по-прежнему доступны в Visio, но работают по-разному.
Если индекс равен нулю (0), объект добавляется в начале коллекции.
Начало коллекции Menus — это крайнее левое меню, когда меню расположены по горизонтали.
В следующем макросе показано, как добавить меню и пункт меню в пользовательский интерфейс.
В этом примере предполагается, что у вас уже есть макрос MyMacro в проекте Microsoft Visual Basic для приложений (VBA), связанный с активным документом Visio.
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 и обратная связь.