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

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

Примечание.

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

Синтаксис

выражение. BuiltInToolbars (fIgnored)

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

Параметры

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

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

UIObject

Примечания

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

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

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