Partager via

Objet CommandBar (Office)

  • Article

Représente une barre de commandes dans l’application conteneur. L’objet CommandBar est membre de la collection CommandBars .

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.

Exemple

Utilisez CommandBars (index), où index est le nom ou le numéro d’index d’une barre de commandes, pour renvoyer un seul objet CommandBar . L’exemple suivant décrit la collection de barres de commandes pour rechercher la barre de commandes nommée « Forms ». S’il trouve cette barre de commandes, l’exemple la rend visible et protège son état d’ancrage. Dans cet exemple, la variable cb représente un objet CommandBar.

foundFlag = False  
For Each cb In CommandBars 
    If cb.Name = "Forms" Then 
        cb.Protection = msoBarNoChangeDock 
        cb.Visible = True  
        foundFlag = True  
    End If 
Next cb 
If Not foundFlag Then 
    MsgBox "The collection does not contain a Forms command bar." 
End If

Utilisez un nom ou un numéro d’index pour spécifier une barre de menus ou une barre d’outils dans la liste des barres de menus et barres d’outils disponibles dans l’application conteneur. Cependant, vous devez utiliser un nom pour spécifier un menu, un menu contextuel ou un sous-menu (tous étant représentés par les objets CommandBar). Cet exemple montre comment ajouter un nouvel élément de menu au bas du menu Outils. Lorsqu’il est choisi, le nouvel élément de menu exécute la procédure nommée « qtrReport ».

Set newItem = CommandBars("Tools").Controls.Add(Type:=msoControlButton) 
With newItem 
    .BeginGroup = True  
    .Caption = "Make Report" 
    .FaceID = 0 
    .OnAction = "qtrReport" 
End With

Si plusieurs menus ou sous-menus personnalisés portent le même nom, CommandBars(index) retourne le premier. Afin de vous assurer que vous avez renvoyé le bon menu ou sous-menu, recherchez le bouton contextuel qui affiche ce menu. Puis, appliquez la propriété CommandBar au menu contextuel pour renvoyer la barre de commandes qui représente ce menu. En supposant que le troisième contrôle de la barre d’outils nommé Custom Tools est un contrôle contextuel, cet exemple montre comment ajouter la commande Enregistrer en bas de ce menu.

Set viewMenu = CommandBars("Custom Tools").Controls(3) 
viewMenu.Controls.Add ID:=3    'ID of Save command is 3

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.