Méthode CommandBarControl.SetFocus (Office)

Article
04/07/2023

Déplace le focus clavier sur le CommandBarControl spécifié. Si le contrôle est désactivé ou s'il n'est pas visible, cette méthode échoue.

Remarque

L’utilisation des barres de commandes dans certaines applications Microsoft Office a été remplacée par le nouveau composant ruban de l’interface utilisateur Microsoft Office Fluent. Pour plus d’informations, voir Vue d’ensemble du ruban Office Fluent.

Syntaxe

expression. SetFocus

Expression Variable qui représente un objet CommandBarControl .

Remarques

Le focus sur le contrôle est subtil. Après avoir utilisé cette méthode, vous remarquerez une mise en surbrillance tridimensionnelle sur le contrôle. Appuyer sur les touches de direction vous permet de naviguer dans les barres d'outils, comme si vous aviez atteint le contrôle en appuyant uniquement sur les touches du clavier.

Exemple

Cet exemple crée une barre de commandes nommée Custom et y ajoute un contrôle ComboBox et un contrôle Button . Il montre ensuite comment utiliser la méthode SetFocus pour placer le focus sur le contrôle ComboBox.

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

Voir aussi

Membres de l’objet CommandBarControl

Assistance et commentaires

Avez-vous des questions ou des commentaires sur Office VBA ou sur cette documentation ? Consultez la rubrique concernant l’assistance pour Office VBA et l’envoi de commentaires afin d’obtenir des instructions pour recevoir une assistance et envoyer vos commentaires.

Partager via