XL97 : Comment faire pour modifier le style de cône pour toutes les séries dans un graphique

Traductions disponibles Traductions disponibles
Numéro d'article: 162092 - Voir les produits auxquels s'applique cet article
Cet article a été archivé. Il est proposé « en l'état » et ne sera plus mis à jour.
Agrandir tout | Réduire tout

Sommaire

Résumé

Microsoft Excel 97 inclut de nombreux types de graphiques prédéfinis nouvelles, y compris les graphiques cône ou pyramide. Par défaut, ces types de graphique contenir des cônes ou des pyramides évaser à un point pour chaque point de données dans une série ; la hauteur de chaque cône ou pyramide est égale à la valeur du point de données.

Vous pouvez modifier la forme des cônes ou des pyramides d'une série afin qu'il tapers à la valeur de la plus grande point de données dans toutes les séries du graphique. Cette forme, tous les cônes ou pyramides pour la série sont identiques, mais ils sont tronqués conformément aux valeurs des points de données. Remarquez que vous ne pouvez pas modifier manuellement les cônes ou pyramides pour toutes les séries d'un graphique en une seule fois. Vous devez modifier la forme des cônes ou des pyramides pour chaque série séparément (une série à la fois). Pour modifier les cônes ou pyramides pour toutes les séries à la fois, vous devez utiliser un Visual Basic macro VBA.

Cet article fournit un exemple de macro qui modifie toutes les séries d'un graphique à la même forme.

Plus d'informations

Microsoft fournit des exemples de programmation à des fins d'illustration uniquement, sans garantie expresse ou implicite, y compris, sans que cela soit limitatif, les garanties implicites de qualité marchande et/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.
Si vous ne maîtrisez que partiellement la programmation, il convient contacter un partenaire certifié Microsoft ou les services de conseil Microsoft. Pour plus d'informations, visitez ces sites Web de Microsoft :

Microsoft certifié partners - https://partner.microsoft.com/global/30000104

Avis de Microsoft Services - http://support.microsoft.com/gp/advisoryservice

Pour plus d'informations sur les options de support technique disponibles et sur la façon de contacter Microsoft, reportez-vous au site Web de Microsoft à l'adresse suivante : http://support.microsoft.com/default.aspx?scid=fh;EN-US;CNTACTMS

Création du graphique exemple

Avant d'utiliser l'exemple de macro, créez un graphique à modifier. Pour ce faire, procédez comme suit :

  1. Enregistrer et fermer tous les classeurs ouverts, puis créez un nouveau classeur.
  2. Dans la feuille Sheet1 du nouveau classeur, tapez les données suivantes :
          A1: a   B1: 1   C1: 3   D1: 2
          A3: b   B2: 4   C2: 2   D2: 1
          A3: c   B3: 5   C3: 1   D3: 3
    						
  3. Sélectionnez la cellule A1, puis cliquez sur graphique dans le menu Insertion.
  4. Dans étape 1 de la Chart Wizard, cliquez sur conique dans la liste type de graphique.
  5. Sous graphique sous-type (Sub-type), cliquez sur le graphique exemple de la troisième ligne de types et cliquez sur Terminer.
Un graphique incorporé de type cône 3D s'affiche sur la feuille Sheet1.

Remarque : Les cônes pour chaque données pointent conique à un point.

Exemple de macro permettant de changer de formes coniques

  1. Démarrez l'éditeur Visual Basic (appuyez sur ALT + F11).
  2. Dans le menu Insertion, cliquez sur module.
  3. Tapez le code suivant dans le module :
          Sub Change_Chart_Shapes()
    
              Dim x As Chart
              Dim y As Series
    
              'x is the Chart object.
              Set x = ActiveSheet.ChartObjects(1).Chart
    
              'Loop through all the chart series.
              For Each y In x.SeriesCollection
    
                  'Set the series chart subtype.
                  y.BarShape = xlConeToMax
    
              Next
          End Sub
    						
  4. Exécutez la macro Change_Chart_Shapes.
  5. Basculez vers Microsoft Excel (appuyez sur ALT + F11).
Chacun des cônes (sauf un) dans le graphique n'est plus tapers à un point. Le cône seul tapers à un point est le cône qui représente la valeur dans la cellule B3, qui est la plus grande valeur dans toutes les séries du graphique.

Références

Pour plus d'informations sur les graphiques en cône et pyramide, cliquez sur l'onglet Index dans l'aide de Microsoft Excel, tapez le texte suivant :
cone
puis double-cliquez sur le texte sélectionné pour aller à la rubrique «Exemples de types de graphiques (cône, cylindre et pyramide)».

Pour plus d'informations sur BarShape, propriété, cliquez sur le Compagnon Office dans Visual Basic Editor, tapez barshape, cliquez sur Rechercher et puis cliquez pour afficher «BarShape, propriété».

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

Propriétés

Numéro d'article: 162092 - Dernière mise à jour: lundi 10 février 2014 - Version: 2.4
Les informations contenues dans cet article s'appliquent au(x) produit(s) suivant(s):
  • Microsoft Excel 97 Standard
Mots-clés : 
kbnosurvey kbarchive kbmt kbdtacode kbprogramming kbualink97 KB162092 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: 162092
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.

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