Метод Application.SetCustomToolbars (Visio)

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

Синтаксис

выражение. SetCustomToolbars (ToolbarsObject)

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

Параметры

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

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

Отсутствует

Примечания

Если объект ToolbarsObject был создан в отдельном процессе с помощью метода CreateObject VBA вместо получения соответствующего свойства объекта приложения или документа , метод 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 и обратная связь.