Exemples de macros pour retourner les ID pour un contrôle CommandBar

Traductions disponibles Traductions disponibles
Numéro d'article: 162814 - Voir les produits auxquels s'applique cet article
Agrandir tout | Réduire tout

Sommaire

Résumé

La propriété ID de l'objet CommandBar utilise un numéro unique pour chaque barre de menus intégrée, une barre de menus contextuels, un sous-menu, un élément de menu ou un barre d'outils. L'ID est souvent nécessaire lorsque vous faites référence à un contrôle sur une barre de commandes. Visual Basic pour applications exemples de macro dans cet article renvoie l'ID de différents contrôles CommandBar.

Plus d'informations

Pour plus d'informations, cliquez sur le numéro ci-dessous pour afficher l'article correspondant dans la base de connaissances Microsoft :
159466XL97 : Liste des numéros d'identification pour les contrôles de barres de commandes prédéfinis

Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie expresse ou implicite. Cela inclut, mais n'est pas limité à, les garanties implicites de qualité marchande ou d'adéquation à un usage particulier. Cet article suppose que vous connaissez le langage de programmation présenté et les outils utilisés pour créer et déboguer des procédures. Les techniciens du support technique Microsoft peuvent vous aider à comprendre la fonctionnalité d'une procédure particulière, mais ils ne modifieront pas ces exemples pour fournir des fonctionnalités supplémentaires ou créer des procédures répondant à vos besoins spécifiques.

Menu sur la barre de menus

L'exemple de macro suivant renvoie l'ID pour le menu Outils d'intégré - dans la barre de menus graphique :
   Sub File_Id

      Dim x as Object
      set x = CommandBars("Chart Menu Bar").Controls("Tools")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				

Commande de menu dans un menu

L'exemple de macro suivant renvoie l'ID pour la commande Quitter dans le menu fichier de la barre de menus Feuille de calcul intégrée :
   Sub FileExit_Id()

      Dim x as Object
      set x = CommandBars("Worksheet Menu Bar").Controls("File") _
      .Controls("Exit")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				

Commande dans un sous-menu d'un menu contextuel

L'exemple de macro suivant renvoie l'ID de la commande élément calculé dans le sous-menu formules du tableau croisé dynamique barre de menus contextuels :
   Sub SubMenu_Command_Id()

      Dim x as Object
      set x = CommandBars("PivotTable Context Menu").Controls("Formulas") _
      .Controls("Calculated Item...")
      MsgBox x.Caption & Chr(13) & x.Id

   End Sub
				
l'exemple de macro suivant renvoie l'ID de tous les éléments dans le sous-menu formules de la barre de menu contextuel Tableau croisé dynamique :
   Sub GetAll_Submenu_Ids()

      Dim ctrl as Object
      For Each ctrl in CommandBars("PivotTable Context Menu") _
      .Controls("Formulas").Controls
         MsgBox ctrl.Caption & Chr(13) & ctrl.Id
      Next ctrl

   End Sub
				

Références

Pour plus d'informations sur la personnalisation par programme de commande barres, dans Visual Basic Editor, cliquez sur le Compagnon Office, tapez menus personnalisation, cliquez sur Rechercher, puis cliquez pour afficher «Vue d'ensemble des barres de commandes».

Remarque Si le Compagnon est masqué, cliquez sur le Office Assistant bouton dans la barre d'outils standard. Si l'aide de Visual Basic Microsoft n'est pas installé sur votre ordinateur, consultez l'article suivant dans la base de connaissances Microsoft :
120802Office : Comment ajouter ou supprimer un programme Office ou un composant

Propriétés

Numéro d'article: 162814 - Dernière mise à jour: vendredi 19 janvier 2007 - Version: 4.2
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Office Excel 2003
  • Microsoft Excel 2002
  • Microsoft Excel 2000 Standard
  • Microsoft Excel 97 Standard
Mots-clés : 
kbmt kbhowto kbprogramming KB162814 KbMtfr
Traduction automatique
IMPORTANT : Cet article est issu du système de traduction automatique mis au point par Microsoft (http://support.microsoft.com/gp/mtdetails). Un certain nombre d?articles obtenus par traduction automatique sont en effet mis à votre disposition en complément des articles traduits en langue française par des traducteurs professionnels. Cela vous permet d?avoir accès, dans votre propre langue, à l?ensemble des articles de la base de connaissances rédigés originellement en langue anglaise. Les articles traduits automatiquement ne sont pas toujours parfaits et peuvent comporter des erreurs de vocabulaire, de syntaxe ou de grammaire (probablement semblables aux erreurs que ferait une personne étrangère s?exprimant dans votre langue !). Néanmoins, mis à part ces imperfections, ces articles devraient suffire à vous orienter et à vous aider à résoudre votre problème. Microsoft s?efforce aussi continuellement de faire évoluer son système de traduction automatique.
La version anglaise de cet article est la suivante: 162814
L'INFORMATION CONTENUE DANS CE DOCUMENT EST FOURNIE PAR MICROSOFT SANS GARANTIE D'AUCUNE SORTE, EXPLICITE OU IMPLICITE. L'UTILISATEUR ASSUME LE RISQUE DE L'UTILISATION DU CONTENU DE CE DOCUMENT. CE DOCUMENT NE PEUT ETRE REVENDU OU CEDE EN ECHANGE D'UN QUELCONQUE PROFIT.

Envoyer des commentaires

 

Contact us for more help

Contact us for more help
Connect with Answer Desk for expert help.
Get more support from smallbusiness.support.microsoft.com