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

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

Примечание.

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

Синтаксис

expression. CustomMenus

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

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

UIObject

Замечания

Если меню и акселераторы 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 и обратная связь.