Метод CommandBarControl.SetFocus (Office)

Статья
04/07/2023

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

Примечание.

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

Синтаксис

expression. Setfocus

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

Замечания

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

Пример

В этом примере создается панель команд с именем 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

См. также

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

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

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

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