Mostrar todo

Método ReleaseFocus

Libera el foco de la interfaz de usuario de todas las barras de comandos.

expresión   Requerida. Expresión que devuelve un objeto CommandBars.

Ejemplo

Este ejemplo agrega tres botones en blanco a la barra de comandos denominada "Custom" y establece el foco en el centro del botón. A continuación, el botón espera cinco segundos antes de liberar el foco de la interfaz de usuario desde todas las 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