Свойство Document.CustomMenus (Visio)

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

Синтаксис

выражение. ПользовательскиеМеню

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

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

UIObject

Примечания

Примечание.

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

Если меню и ускорители Microsoft Visio не были настроены программно, с помощью решения Visio или в пользовательском интерфейсе, свойство CustomMenus возвращает значение "Ничего".

Пример

Этот макрос Microsoft Visual Basic для приложений (VBA) показывает, как получить активный в настоящее время пользовательский интерфейс (UI) для вашего документа, не заменяя пользовательский интерфейс на уровне приложения. Для добавления настраиваемых элементов пользовательского интерфейса необходимо написать дополнительный код.

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