Compartilhar via

Método CommandBarControl.SetFocus (Office)

  • Artigo

Move o foco do teclado para o CommandBarControl especificado. Se o controle estiver desativado ou não estiver visível, esse método irá falhar.

Observação

[!OBSERVAçãO] O uso de CommandBars em alguns aplicativos do Microsoft Office foi substituído pelo novo componente da faixa de opções da interface de usuário do Microsoft Office Fluent. Para obter mais informações, consulte Visão geral da faixa de opções fluente do Office.

Sintaxe

expressão. Setfocus

Expressão Uma variável que representa um objeto CommandBarControl .

Comentários

O foco no controle é sutil. Depois de usar esse método, você observará um destaque tridimensional no controle. Ao pressionar as teclas de seta você navegará nas barras de ferramentas, como se tivesse chegado até o controle pressionando somente os controles de teclado.

Exemplo

Este exemplo cria uma barra de comandos chamada Custom e adiciona um controle ComboBox e um controle Button a ele. O exemplo usa o método SetFocus para definir o foco para o controle 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

Confira também

Suporte e comentários

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.