Свойство Application.CommandBars (Visio)
Возвращает ссылку на коллекцию CommandBars , представляющую панели команд в приложении контейнера. Только для чтения.
Примечание
Начиная с Visio 2010 пользовательский интерфейс Microsoft Office Fluent заменил предыдущую систему многоуровневых меню, панелей инструментов и областей задач. Объекты И элементы VBA, которые использовались для настройки пользовательского интерфейса в предыдущих версиях Visio, по-прежнему доступны в Visio, но работают по-разному.
expression. CommandBars
выражение: переменная, представляющая объект Application.
CommandBars
Начиная с Microsoft Visio 2002, программа может управлять меню и панелями инструментов в пользовательском интерфейсе Visio, управляя коллекцией CommandBars , возвращенной свойством CommandBars . Коллекция CommandBars имеет интерфейс, идентичный коллекции CommandBars, предоставляемой набором приложений Microsoft Office, таких как Microsoft Word и Microsoft Excel.
Кроме того, начиная с Visio версии 4.0, Visio предоставляет свойства приложения и документа, которые возвращают объект UIObject , который предоставляет функции, аналогичные CommandBars. Следовательно, программы могут использовать коллекцию CommandBars или объекты UIObject для управления меню и панели инструментов Visio.
Чтобы получить сведения об объекте, возвращаемом свойством CommandBars , выполните следующие действия:
На вкладке Разработчик выберите Visual Basic.
В меню Вид выберите Обозреватель объектов.
В списке Проект или библиотека выберите Office.
Если вы не видите библиотеку типов Office в списке Проект или библиотека, в меню Сервис выберите Ссылки, выберите проверка библиотеки объектов Microsoft Office 14.0 и нажмите кнопку ОК.
В разделе Классы изучите класс с именем CommandBars.
Каждый объект CommandBarControl в коллекции CommandBars имеет свойство OnAction , а каждый объект CommandBar в коллекции CommandBars имеет свойство Context . Значения этих свойств определяются приложением-контейнером. В Microsoft Visio:
Свойство OnAction — это строковое значение, которое интерпретируется либо как надстройка COM, либо как макрос Microsoft Visual Basic для приложений (VBA), либо как код VBA, либо как имя надстройки Visio.
Свойство Context определяет, в каком контексте меню отображается панель команд.
- Номер контекста меню — это строковое значение (например , visUIObjSetDrawing или "2"), за которым следует звездочка, если панель команд отображается по умолчанию (например, visUIObjSetShapeSheet
& "*" or "4*"). - Допустимые контексты меню: visUIObjSetDrawing (2), visUIObjSetStencil (3), visUIObjSetShapeSheet (4), visUIObjSetIcon (5) или visUIObjSetPrintPreview (7). Попытка задать для свойства Context любое другое значение завершится ошибкой.
- Номер контекста меню — это строковое значение (например , visUIObjSetDrawing или "2"), за которым следует звездочка, если панель команд отображается по умолчанию (например, visUIObjSetShapeSheet
В этом макросе показано, как использовать свойство CommandBars для вывода списка панелей команд.
Public Sub CommandBars_Example()
Dim vsoCommandBars As CommandBars
Dim vsoCommandBar As CommandBar
'Get the set of CommandBars
'for the application.
Set vsoCommandBars = Application.CommandBars
'List each CommandBar in the Immediate window.
For Each vsoCommandBar In vsoCommandBars
Debug.Print vsoCommandBar.Name
Next
End Sub
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.