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

Статья
04/07/2023

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

Примечание.

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

Синтаксис

expression. BuiltInToolbars (fIgnored)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
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 и обратная связь.

Поделиться через