Свойство Application.BuiltInMenus (Visio)

Статья
04/07/2023

Возвращает объект UIObject , представляющий копию встроенных меню и ускорителей Microsoft Visio. Только для чтения.

Примечание.

Начиная с Visio 2010 пользовательский интерфейс Microsoft Office Fluent заменил предыдущую систему многоуровневых меню, панелей инструментов и областей задач. Объекты И члены VBA, которые использовались для настройки пользовательского интерфейса в предыдущих версиях Visio, по-прежнему доступны в Visio, но работают по-разному.

Синтаксис

expression. BuiltInMenus

выражение: переменная, представляющая объект Application.

Возвращаемое значение

UIObject

Замечания

Используйте свойство BuiltInMenus для получения объекта UIObject и изменения его меню и ускорителей. Затем можно использовать метод SetCustomMenus объекта Application или Document , чтобы добавить настраиваемые меню и ускорители во встроенный пользовательский интерфейс Visio.

Вы также можете использовать метод SaveToFile объекта UIObject , чтобы сохранить его меню в файле и перезагрузить их как настраиваемые меню, задав свойство CustomMenusFile объекта Application или Document .

Пример

В следующем макросе Microsoft Visual Basic для приложений (VBA) показано, как использовать свойство BuiltInMenus. Он добавляет меню и пункт меню на вкладку Надстройки и задает свойства заголовка меню и пункта меню.

Чтобы восстановить встроенный пользовательский интерфейс в Microsoft Visio после выполнения этого макроса, вызовите метод ThisDocument.ClearCustomMenus .

 
Public Sub BuiltInMenus_Example() 
 
 Dim vsoUIObject 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 UIObject object that represents Visio built-in menus. 
 Set vsoUIObject = Visio.Application.BuiltInMenus 
 
 'Get the MenuSets collection. 
 Set vsoMenuSets = vsoUIObject.MenuSets 
 
 'Get the drawing window menu set. 
 Set vsoMenuSet = vsoMenuSets.ItemAtID(visUIObjSetDrawing) 
 
 'Get the Menus collection. 
 Set vsoMenus = vsoMenuSet.Menus 
 
 'Add a new menu before the Window menu. 
 Set vsoMenu = vsoMenus.AddAt(7) 
 vsoMenu.Caption = "MyNewMenu" 
 
 'Get the MenuItems collection. 
 Set vsoMenuItems = vsoMenu.MenuItems 
 
 'Add a menu item to the new menu. 
 Set vsoMenuItem = vsoMenuItems.Add 
 
 'Set the Caption property for the new menu item. 
 vsoMenuItem.Caption = "&MyNewMenuItem" 
 
 'Tell Visio to use the new UI when the document is active. 
 ThisDocument.SetCustomMenus vsoUIObject 
 
End Sub

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

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