Примечание.
Для доступа к этой странице требуется авторизация. Вы можете попробовать войти или изменить каталоги.
Для доступа к этой странице требуется авторизация. Вы можете попробовать изменить каталоги.
Представляет элемент управления на панели команд. Объект CommandBarControl является членом коллекции CommandBarControls . Все свойства и методы объекта CommandBarControl являются общими для объектов CommandBarButton, CommandBarComboBox и CommandBarPopup .
Примечание.
Использование панелей команд в некоторых приложениях Microsoft Office заменено новым компонентом ленты пользовательского интерфейса Microsoft Office Fluent. Дополнительные сведения см. в статье Обзор ленты Office Fluent.
Примечания
При написании кода Visual Basic для работы с настраиваемыми элементами управления панели команд используются объекты CommandBarButton, CommandBarComboBox и CommandBarPopup .
При написании кода для работы со встроенными элементами управления в приложении-контейнере, которые не могут быть представлены ни одним из этих трех объектов, используется объект CommandBarControl . Для возврата объекта CommandBarControl используйте элементы управления (индекс), где индекс — это порядковый номер элемента управления. ( Свойство Type элемента управления должно быть msoControlLabel, msoControlExpandingGrid, msoControlSplitExpandingGrid, msoControlGrid или msoControlGauge).
Переменным, объявленным как CommandBarControl , можно присвоить значения CommandBarButton, CommandBarComboBox и CommandBarPopup .
Пример
Метод FindControl также можно использовать для возврата объекта CommandBarControl . В следующем примере выполняется поиск элемента управления типа msoControlGauge; Если такое сообщение найдено, выводится индексный номер элемента управления и имя панели команд, содержащей его. В этом примере переменная lbl представляет объект CommandBarControl .
Set lbl = CommandBars.FindControl(Type:= msoControlGauge)
If lbl Is Nothing Then
MsgBox "A control of type msoControlGauge was not found."
Else
MsgBox "Control " & lbl.Index & " on command bar " _
& lbl.Parent.Name & " is type msoControlGauge"
End If
См. также
Поддержка и обратная связь
Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.