Table of contents
TOC
Réduire la table des matières
Développer la table des matières

Objet CommandBar (Office)

office 365 dev account|Dernière mise à jour: 23/11/2017
|
1 Contributeur

Cet objet représente une barre de commandes de l'application conteneur. L'objet CommandBar est un 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, recherchez le mot clé « ruban » dans l'aide.

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. Cet exemple montre comment parcourir la collection de barres de commandes à la recherche de la barre intitulée « Formulaires ». Si cette barre de commandes est localisée, elle est rendue visible et son ancrage est protégé. 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

Vous pouvez utiliser 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 des 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. Lorsque vous cliquez dessus, cet élément exécute la procédure intitulée « qtrReport ».

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

Si au moins deux menus ou sous-menus personnalisés ont le même nom, CommandBars(index) renvoie 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. Si le troisième bouton de la barre d'outils, appelé « Outils personnalisés » est un menu contextuel, cet exemple ajoute 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

Autres ressources

Référence du modèle objet

© 2018 Microsoft