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

Статья
04/07/2023

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

Примечание.

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

Синтаксис

expression. BuiltInToolbars (fIgnored)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
fIgnored	Обязательный	Integer	Требуется для обратной совместимости, но игнорируется. Рекомендуется передать ноль (0).

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

UIObject

Замечания

Используйте свойство BuiltInToolbars , чтобы получить объект UIObject и изменить его панели инструментов. Затем можно использовать метод SetCustomToolbars объекта Application или Document , чтобы заменить настраиваемые панели инструментов встроенными панелями инструментов Visio.

Вы также можете использовать метод SaveToFile объекта UIObject , чтобы сохранить его панели инструментов в файле и перезагрузить их как пользовательские панели инструментов, задав свойство CustomToolbarsFile объекта Application или Document .

До Visio 5.0 аргументом для этого свойства был fWhichToolbars, который обозначал тип панели инструментов для получения (MSOffice или LotusSS). Начиная с Visio 5.0 приложение больше не поддерживает различные типы панелей инструментов, а текущий аргумент fIgnored игнорируется.

Пример

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

Перед выполнением этого макроса замените (path\filename) в следующем коде полным путем и именем файла значка (ICO) на компьютере.

Чтобы восстановить встроенные панели инструментов Visio после выполнения этого макроса, вызовите метод ThisDocument.ClearCustomToolbars .

 
Public Sub BuiltInToolbars_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbarSet As Visio.ToolbarSet 
 Dim vsoToolbarItems As Visio.ToolbarItems 
 Dim vsoToolbarItem As Visio.ToolbarItem 
 
 'Get the UIObject object for the copy of the built-in toolbars. 
 Set vsoUIObject = Visio.Application.BuiltInToolbars(0) 
 
 'Get the drawing window toolbar sets. 
 'NOTE: Use ItemAtID to get the toolbar sets. 
 'Using vsoUIObject.ToolbarSets(visUIObjSetDrawing) will not work. 
 Set vsoToolbarSet = vsoUIObject.ToolbarSets.ItemAtID(visUIObjSetDrawing) 
 
 'Get the ToolbarItems collection. 
 Set vsoToolbarItems = vsoToolbarSet.Toolbars(0).ToolbarItems 
 
 'Add a new button in the first position. 
 Set vsoToolbarItem = vsoToolbarItems.AddAt(0) 
 
 'Set properties for the new toolbar button. 
 vsoToolbarItem.CntrlType = visCtrlTypeBUTTON 
 
 'Set the caption for the new toolbar button. 
 vsoToolbarItem.Caption = "MyButton" 
 
 'Set the icon for the new toolbar button. 
 vsoToolbarItem.IconFileName "(path\filename )" 
 
 'Tell Visio to actually use the new custom UI. 
 ThisDocument.SetCustomToolbars vsoUIObject 
 
End Sub

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

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