Document.CustomToolbars - свойство (Visio)

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

Синтаксис

выражение. Пользовательские панели инструментов

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

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

UIObject

Примечания

Примечание.

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

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

Пример

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

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