Partager via


Propriété CommandBarComboBox.List (Office)

Cette propriété obtient ou définit un élément du contrôle CommandBarComboBox spécifié. Lecture-écriture.

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. Liste (Index)

Expression Variable qui représente un objet CommandBarComboBox .

Parameters

Nom Requis/Facultatif Type de données Description
Index Obligatoire Integer Élément de la liste à définir.

Remarques

Il s'agit d'une propriété en lecture seule dans le cas d'une zone de liste modifiable prédéfinie.

Exemple

Cet exemple montre comment vérifier le quatrième élément de liste du contrôle de zone de liste modifiable dont la légende est Stock Data dans la barre de commandes personnalisée. Si l’élément n’est pas « Afficher les actualités », l’exemple affiche un message informant l’utilisateur que la zone de liste modifiable est peut-être endommagée et lui demande de réinstaller l’application.

Set myBar = CommandBars _ 
    .Add(Name:="Custom", Position:=msoBarTop, _ 
    Temporary:=True) 
With myBar 
    .Controls.Add Type:=msoControlComboBox, ID:=1 
    .Visible = True  
End With 
With CommandBars("Custom").Controls(1) 
    .AddItem "Get Stock Quote", 1 
    .AddItem "View Chart", 2 
    .AddItem "View Fundamentals", 3 
    .AddItem "View News", 4 
    .Caption = "Stock Data" 
    .DescriptionText = "View Data For Stock" 
End With 
If CommandBars("Custom").Controls(1).List(4) _ 
     > "View News" Then 
MsgBox ("Stock Data appears to be damaged." & _ 
     " Please reinstall application.") 
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.