VBA Excel – Ajouter un graphique personnalisé

Dans l’article « Tracé d’un graphique en VBA« , vous avez appris à insérer un graphique dans la feuille courante. Cet article va aller beaucoup plus loin. En effet, vous allez y apprendre comment choisir l’emplacement, la taille, la position et le type du graphique dans la feuille.

Voici le code utilisé :

Dim feuille As Worksheet

Dim graphique As ChartObject

Set feuille = Sheets("Feuil1")

Set graphique = feuille.ChartObjects.Add(60, 50, 500, 300)

With graphique.Chart

  .ChartType = xlLineMarkers

  .SeriesCollection.NewSeries

  With .SeriesCollection(1)
 
    .Values = feuille.Range("A2:C2")

    .XValues = feuille.Range("A1:C1")

  End With

End With

Set graphique = Nothing

Set feuille = Nothing

Les deux premières instructions définissent les variables feuille et graphique qui représenteront respectivement la feuille dans laquelle le graphique sera inséré et le graphique à insérer :

Dim feuille As Worksheet

Dim graphique As ChartObject

L’instruction suivante affecte la feuille Feuil1 à la variable feuille :

Set feuille = Sheets("Feuil1")

L’instruction suivante ajoute à la feuille Feuil1 un graphique :

• de largeur 500 pixels ;
• de hauteur 500 pixels ;
• dont l’angle supérieur gauche se trouve à 60 pixels du bord gauche et à 50 pixels du bord supérieur.

Pour faciliter l’écriture du code, ce graphique est affecté à la variable graphique :

Set graphique = feuille.ChartObjects.Add(60, 50, 500, 300)

L’instruction With … End With suivante définit les caractéristiques du graphique. On commence par le type du graphique, via la propriété ChartType :

With graphique.Chart

  .ChartType = xlLineMarkers

Comme le montre le tableau suivant, de très nombreux graphiques peuvent être définis dans Excel 2016 :

L’instruction suivante ajoute une collection de séries :

.SeriesCollection.NewSeries

Cette collection est utilisée pour définir les abscisses (XValues) et les ordonnées (Values) correspondantes :

With .SeriesCollection(1)

  .Values = feuille.Range("A2:C2")

  .XValues = feuille.Range("A1:C1")

End With

Le code se termine par la suppression des variables objet graphique et feuille :

Set graphique = Nothing

Set feuille = Nothing

Voici un exemple d’exécution :