Compartir a través de

Método CommandBars.ReleaseFocus (Office)

  • Artículo

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

Nota:

El uso de CommandBars en algunas aplicaciones de Microsoft Office sustituido por el nuevo componente cinta de la interfaz de usuario de Microsoft Office Fluent. Para obtener más información, vea Información general de la cinta de opciones de Office Fluent.

Sintaxis

expresión. ReleaseFocus

Expresión Variable que representa un objeto CommandBars .

Ejemplo:

En este ejemplo se agregan tres botones en blanco a la barra de comandos denominada Custom y se establece el foco en el botón central. A continuación, el botón espera cinco segundos antes de liberar el foco de la interfaz de usuario de 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

Consulte también

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.