Compartilhar via

CommandBarControl.SetFocus method (Office) (Método CommandBarControl.SetFocus [Office])

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 Descrição geral do friso do Office Fluent.

Sintaxe

expressão. SetFocus

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

Comentários

O foco no controle é sutil. Depois de utilizar este método, irá reparar num realce tridimensional no controlo. 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 comando com o nome Personalizado e adiciona um controlo ComboBox e um controlo Botão à mesma. 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.

  • Last updated on