Метод Document.SetCustomToolbars (Visio)

Статья
04/07/2023

Заменяет текущие встроенные или настраиваемые панели инструментов приложения или документа.

Синтаксис

expression. SetCustomToolbars (ToolbarsObject)

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

Параметры

Имя	Обязательный или необязательный	Тип данных	Описание
Панели инструментовObject	Обязательный	[IVUIOBJECT]	Выражение, возвращающее объект UIObject , представляющий новые пользовательские панели инструментов.

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

Отсутствует

Примечания

Если объект ToolbarsObject был создан в отдельном процессе с помощью метода CreateObject VBA вместо получения соответствующего свойства объекта Application или Document , метод SetCustomToolbars возвращает ошибку.

Пример

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

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

Public Sub SetCustomToolbarItems_Example() 
 
 Dim vsoUIObject As Visio.UIObject 
 Dim vsoToolbarSet As Visio.ToolbarSet 
 Dim vsoToolbar As Visio.Toolbar 
 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 set. 
 'Using vsoUIObject.ToolbarSets(visUIObjSetDrawing) will not work. 
 Set vsoToolbarSet = vsoUIObject.ToolbarSets.ItemAtID(visUIObjSetDrawing) 
 
 'Create a new toolbar 
 Set vsoToolbar = vsoToolbarSet.Toolbars.Add 
 
 With vsoToolbar 
 .Caption = "test" 
 .Position = visBarFloating 
 .Left = 300 
 .Top = 200 
 
 .Protection = visBarNoHorizontalDock 
 .Visible = True 
 .Enabled = True 
 End With 
 
 'Get the ToolbarItems collection. 
 Set vsoToolbarItems = vsoToolbar.ToolbarItems 
 
 'Add a new button in the first position. 
 Set vsoToolbarItem = vsoToolbarItems.AddAt(0) 
 
 'Set properties for the new toolbar button. 
 vsoToolbarItem.CntrlType = visCtrlTypeBUTTON 
 vsoToolbarItem.CmdNum = visCmdPanZoom 
 
 'Set the toolbar button icon. 
 vsoToolbarItem.IconFileName "path\filename " 
 
 'Use the new custom UI. 
 ThisDocument.SetCustomToolbars vsoUIObject 
 
End Sub

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

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

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