Ескертпе
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Жүйеге кіруді немесе каталогтарды өзгертуді байқап көруге болады.
Бұл бетке кіру үшін қатынас шегін айқындау қажет. Каталогтарды өзгертуді байқап көруге болады.
Представляет элемент управления панели команд. Объект CommandBarControl является членом коллекции CommandBarControls . Свойства и методы объекта CommandBarControl являются общими для объектов CommandBarButton, CommandBarComboBox и CommandBarPopup .
Примечание.
Использование CommandBars в некоторых приложениях Microsoft Office было заменено новым компонентом ленты пользовательского интерфейса Microsoft Office Fluent. Дополнительные сведения см. в статье Обзор ленты Office Fluent.
Замечания
При написании кода Visual Basic для работы с пользовательскими элементами управления панели команд используются объекты CommandBarButton, CommandBarComboBox и CommandBarPopup .
При написании кода для работы со встроенными элементами управления в контейнерном приложении, которые не могут быть представлены одним из этих трех объектов, используется объект CommandBarControl . Используйте элементы управления (index), где index — это номер индекса элемента управления, чтобы вернуть объект 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 и обратная связь.