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.
Verschiebt den Tastaturfokus auf das angegebene CommandBarControl. If the control is disabled or isn't visible, this method will fail.
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. SetFocus
Ausdruck Eine Variable, die ein CommandBarControl-Objekt darstellt.
Hinweise
Der Fokus auf die Steuerung ist subtil. Nachdem Sie diese Methode angewendet haben, werden Sie eine dreidimensionale Hervorhebung auf dem Steuerelement bemerken. Durch Drücken der Pfeiltasten wird in den Symbolleisten navigiert, als ob Sie nur durch Drücken von Tastatursteuerelementen zum Steuerelement gelangt wären.
Beispiel
Dieses Beispiel erstellt eine Befehlsleiste mit dem Namen "Benutzerdefiniert " und fügt ihr ein ComboBox-Steuerelement und ein Button-Steuerelement hinzu. Im Beispiel wird dann die SetFocus -Methode verwendet, um den Fokus auf das ComboBox-Steuerelement festzulegen.
Set focusBar = CommandBars.Add(Name:="Custom")
With CommandBars("Custom")
.Visible = True
.Position = msoBarTop
End With
Set testComboBox = CommandBars("Custom").Controls _
.Add(Type:=msoControlComboBox, ID:=1)
With testComboBox
.AddItem "First Item", 1
.AddItem "Second Item", 2
End With
Set testButton = CommandBars("Custom").Controls _
.Add(Type:=msoControlButton)
testButton.FaceId = 17
' Set the focus to the combo box.
testComboBox.SetFocus
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.