Discussion :

[bapt298]

Bonjour,

Je réalise des graphiques par macro, et, dans un menu, on peut changer la couleur des données.

Pour les données qui sont sous forme de "nuage de points", je parviens à changer la couleur de chaque point en parcourant successivement tous les points.

J'utilise pour cela le code suivant :

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
 
For x = 1 To derColCR - 4
            Sheets("Compte_rendu").ChartObjects("graphique" & i).Chart.SeriesCollection(j - 1).Points(x).MarkerForegroundColor = RGB(160, 180, 120)
            Sheets("Compte_rendu").ChartObjects("graphique" & i).Chart.SeriesCollection(j - 1).Points(x).MarkerBackgroundColor = RGB(160, 180, 120)
Next x

Par contre, dans ma légende, la couleur ne change pas, ce qui est tout à fait normal puisque je parcours les points un par un. Le problème, c'est que je n'ai pas trouvé l'instruction permettant d'atteindre la couleur visible dans la légende... Quelqu'un a t il une idée à ce propos ?

Merci de votre aide.

Baptiste

[bapt298]

Pas d'idées ...?

J'ai trouvé qu'en utilisant la propriété .Legend.LegendEntries(i).LegendKey.Interior.Color, on a accès à la couleur, mais ça ne marche pas pour un nuage de points...