Partager via

Objet CommandBarControl (Office)

  • Article

Cet objet représente un contrôle de la barre de commandes. L’objet CommandBarControl est membre de la collection CommandBarControls. Les propriétés et méthodes de l’objet CommandBarControl sont toutes partagées par les objets CommandBarButton, CommandBarComboBox et CommandBarPopup .

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.

Remarques

Lors de l'écriture de code Visual Basic destiné à manipuler les contrôles de barre de commandes personnalisés, vous pouvez utiliser les objets CommandBarButton, CommandBarComboBox et CommandBarPopup.

Lorsque vous écrivez du code pour manipuler des contrôles prédéfinis de l'application conteneur qui ne peuvent pas être représentés par l'un de ces trois objets, vous pouvez utiliser l'objet CommandBarControl. Utilisez Controls (index), où index est le numéro d’index d’un contrôle, pour renvoyer un objet CommandBarControl . (La propriété Type du contrôle doit être msoControlLabel, msoControlExpandingGrid, msoControlSplitExpandingGrid, msoControlGrid ou msoControlGauge).

Les variables déclarées en tant que CommandBarControl peuvent être affectées des valeurs CommandBarButton, CommandBarComboBox et CommandBarPopup.

Exemple

Vous pouvez également utiliser la méthode FindControl pour renvoyer un objet CommandBarControl . Cet exemple montre comment rechercher un contrôle de type msoControlGauge ; si un contrôle est trouvé, le numéro d'index du contrôle et le nom de la barre de commandes qui le contient s'affichent. Dans cet exemple, la variable lbl représente un objet CommandBarControl.

Set lbl = CommandBars.FindControl(Type:= msoControlGauge) 
If lbl Is Nothing Then 
    MsgBox "A control of type msoControlGauge was not found." 
Else 
    MsgBox "Control " & lbl.Index & " on command bar " _ 
        & lbl.Parent.Name & " is type msoControlGauge" 
End If

Voir aussi

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.