CommandBars.ReleaseFocus method

Releases the user interface focus from all command bars.

Syntax

expression.ReleaseFocus

expression A variable that represents a CommandBars object.

Example

This example adds three blank buttons to the command bar named Custom and sets the focus to the center button. The example then waits five seconds before releasing the user interface focus from all command bars.

Sub Macro1()
    Set myBar = CommandBars _
        .Add(Name:="Custom1", 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
End Sub