Метод Document.SetCustomMenus (Visio)
Заменяет текущие встроенные или настраиваемые меню приложения или документа.
expression. SetCustomMenus (MenusObject)
Выражение Переменная, представляющая объект Document .
Имя | Обязательный или необязательный | Тип данных | Описание |
---|---|---|---|
MenusObject | Обязательный | [IVUIOBJECT] | Выражение, возвращающее объект UIObject , представляющий новые настраиваемые меню. |
Отсутствует
Примечание
Начиная с Visio 2010 пользовательский интерфейс Microsoft Office Fluent заменил предыдущую систему многоуровневых меню, панелей инструментов и областей задач. Объекты И члены VBA, которые использовались для настройки пользовательского интерфейса в предыдущих версиях Visio, по-прежнему доступны в Visio, но работают по-разному.
Если объект UIObject был создан в отдельном процессе с помощью процедуры CreateObject вместо получения соответствующего свойства объекта Application или Document , метод SetCustomMenus возвращает ошибку .
В этом макросе Microsoft Visual Basic для приложений (VBA) показано, как добавить меню и пункт меню в пользовательский интерфейс, а затем заменить встроенный набор меню пользовательским набором.
Чтобы восстановить встроенный пользовательский интерфейс Microsoft Visio после выполнения этого макроса, вызовите метод ThisDocument.ClearCustomMenus .
Public Sub SetCustomMenus_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 UI object that represents the Microsoft 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 Demo menu.
Set vsoMenu = vsoMenus.AddAt(1)
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 = "&Hello"
vsoMenuItem.AddOnName = "MsgBox ""Hello"""
'Tell Visio to use the new UI when the document is active.
ThisDocument.SetCustomMenus vsoUIObject
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.