Метод CommandBarButton.SetFocus (Office)

Статья
04/07/2023

Перемещает фокус клавиатуры на указанный элемент управления CommandBarButton . Если кнопка отключена или не отображается, этот метод завершится ошибкой.

Примечание.

Использование CommandBars в некоторых приложениях Microsoft Office было заменено новым компонентом ленты пользовательского интерфейса Microsoft Office Fluent. Дополнительные сведения см. в статье Обзор ленты Office Fluent.

Синтаксис

expression. Setfocus

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

Замечания

Фокус на элементе управления является незначительным. После использования этого метода вы заметите трехмерное выделение в элементе управления. Нажатие клавиш со стрелками будет перемещаться по панелям инструментов, как если бы вы пришли к элементу управления, нажав только элементы управления с клавиатуры.

Пример

В этом примере создается панель команд с именем Custom и добавляются элементы управления ComboBox и Button . Затем в примере используется метод SetFocus для установки фокуса на элемент управления ComboBox .

Set focusBar = CommandBars.Add(Name:="Custom") 
With CommandBars("Custom") 
    .Visible = True  
    .Position = msoBarTop 
End With 
 
Set testComboBox = CommandBars("Custom").Controls _ 
    .Add(Type:=msoControlComboBox, ID:=1) 
With testComboBox 
    .AddItem "First Item", 1 
    .AddItem "Second Item", 2 
End With 
Set testButton = CommandBars("Custom").Controls _ 
    .Add(Type:=msoControlButton) 
testButton.FaceId = 17 
' Set the focus to the combo box. 
testComboBox.SetFocus

См. также

Элементы объекта CommandBarButton

Поддержка и обратная связь

Есть вопросы или отзывы, касающиеся Office VBA или этой статьи? Руководство по другим способам получения поддержки и отправки отзывов см. в статье Поддержка Office VBA и обратная связь.

Поделиться через