CommandBars.ReleaseFocus-Methode (Office)

Löst den Benutzeroberflächenfokus von allen Befehlsleisten.

Hinweis

[!HINWEIS] "CommandBar"-Objekte wurden in einigen Microsoft Office-Anwendungen durch die neue Menüband-Komponente der Microsoft Office Fluent-Benutzeroberfläche abgelöst. Weitere Informationen finden Sie unter Übersicht über das Office Fluent-Menüband.

Syntax

Ausdruck. ReleaseFocus

Ausdruck Eine Variable, die ein CommandBars-Objekt darstellt.

Beispiel

In diesem Beispiel werden der Befehlsleiste mit dem Namen Benutzerdefiniert drei leere Schaltflächen hinzugefügt, und der Fokus wird auf die mittlere Schaltfläche festgelegt. The example then waits five seconds before releasing the user interface focus from all command bars.

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

Siehe auch

• Elemente des CommandBars-Objekts

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.