Partilhar via

Método CommandBars.ReleaseFocus (Office)

  • Artigo

Libera o foco da interface do usuário de todas as barras de comandos.

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. ReleaseFocus

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

Exemplo

Este exemplo adiciona três botões em branco à barra de comandos chamada Custom e define o foco para o botão central. Em seguida, são aguardados cinco segundos antes de o foco da interface do usuário ser liberado de todas as barras de comandos.

Set myBar = CommandBars _ 
    .Add(Name:="Custom", Position:=msoBarTop, _ 
    Temporary:=True) 
With myBar 
    .Controls.Add Type:=msoControlButton 
    .Controls.Add Type:=msoControlButton 
    .Controls.Add Type:=msoControlButton 
    .Visible = True  
End With 
Set myControl = CommandBars("Custom").Controls(2) 
With myControl 
    .SetFocus 
End With 
PauseTime = 5   ' Set duration. 
    Start = Timer   ' Set start time. 
    Do While Timer  Start + PauseTime 
        DoEvents    ' Yield to other processes. 
    Loop 
    Finish = Timer 
CommandBars.ReleaseFocus

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.