Свойство InvisibleApp.CustomToolbars (Visio)

  • Статья

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

Примечание.

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

Синтаксис

expression. Настраиваемые панели инструментов

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

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

UIObject

Замечания

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

Пример

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

Sub CustomToolbars_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 
 'Check whether there are custom toolbars bound to the document. 
 If ThisDocument.CustomToolbars Is Nothing Then 
 
 'If not, check whether there are custom toolbars bound to the application. 
 If Visio.Application.CustomToolbars Is Nothing Then 
 
 'If not, use the Visio built-in toolbars. 
 Set vsoUIObject = Visio.Application.BuiltInToolbars(0) 
 MsgBox "Using Built-In Toolbars", 0 
 
 Else 
 
 'If there are existing Visio application-level custom toolbars, use them. 
 Set vsoUIObject = Visio.Application.CustomToolbars 
 MsgBox "Using Custom Toolbars", 0 
 
 End If 
 
 Else 
 
 'Use the existing custom toolbars. 
 Set vsoUIObject = ThisDocument.CustomToolbars 
 MsgBox "Using Custom Toolbars", 0 
 
 End If 
 
End Sub

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

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