Свойство Document.CustomMenus (Visio)
Возвращает объект UIObject , представляющий текущие настраиваемые меню и ускорители объекта Document . Только для чтения.
Синтаксис
expression. CustomMenus
Выражение Переменная, представляющая объект Document .
Возвращаемое значение
UIObject
Замечания
Примечание.
Начиная с Visio 2010 пользовательский интерфейс Microsoft Office Fluent заменил предыдущую систему многоуровневых меню, панелей инструментов и областей задач. Объекты И члены VBA, которые использовались для настройки пользовательского интерфейса в предыдущих версиях Visio, по-прежнему доступны в Visio, но работают по-разному.
Если меню и акселераторы Microsoft Visio не были настроены программными средствами, решением Visio или пользовательским интерфейсом, свойство CustomMenus возвращает значение Nothing.
Пример
Этот макрос Microsoft Visual Basic для приложений (VBA) показывает, как получить текущий активный пользовательский интерфейс для документа без замены пользовательского интерфейса на уровне приложения. Для добавления пользовательских элементов пользовательского интерфейса необходимо написать дополнительный код.
Sub CustomMenus_Example()
Dim vsoUIObject As Visio.UIObject
'Check whether there are custom menus bound to the document.
If ThisDocument.CustomMenus Is Nothing Then
'If not, check whether there are custom menus bound to the application.
If Visio.Application.CustomMenus Is Nothing Then
'If not, use the Visio built-in menus.
Set vsoUIObject = Visio.Application.BuiltInMenus
MsgBox "Using Built-In Menus", 0
Else
'If there are existing Visio application-level custom menus, use them.
Set vsoUIObject = Visio.Application.CustomMenus
MsgBox "Using Custom Menus", 0
End If
Else
'Use the existing custom menus.
Set vsoUIObject = ThisDocument.CustomMenus
MsgBox "Using Custom Menus", 0
End If
End Sub
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.