Hinweis
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, sich anzumelden oder das Verzeichnis zu wechseln.
Für den Zugriff auf diese Seite ist eine Autorisierung erforderlich. Sie können versuchen, das Verzeichnis zu wechseln.
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 verwendet werden. ReleaseFocus
Ausdruck Eine Variable, die ein CommandBars-Objekt darstellt.
Beispiel
Dieses Beispiel fügt der Befehlsleiste mit dem Namen "Benutzerdefiniert " drei leere Schaltflächen hinzu und setzt den Fokus auf die mittlere Schaltfläche. 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
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.