Прочитать на английском

Поделиться через


Метод 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 и обратная связь.