Свойство UIObject.ToolbarSets (Visio)

Возвращает коллекцию ToolbarSets объекта UIObject . Только для чтения.

Синтаксис

выражение. ToolbarSets

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

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

ToolbarSets

Замечания

Примечание.

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

Если объект UIObject представляет панели инструментов (например, если объект был получен с помощью свойства BuiltInToolbars объекта Application ), его коллекция ToolbarSets представляет все панели инструментов для этого объекта UIObject .

Используйте свойство ItemAtID объекта ToolbarSets для получения панелей инструментов для определенного контекста окна, например окна рисования. Если контекст не включает панели инструментов, у него нет коллекции ToolbarSets .

Пример

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

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

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

 
Public Sub ToolbarSets_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 set. 
 '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 
 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 и обратная связь.