Changer de couleur chacune des courbes d'un graphique

Résolu
sym59 Messages postés 46 Statut Membre -  
sym59 Messages postés 46 Statut Membre -
Bonjour,

Comme indiqué dans le titre, je souhaite savoir s'il est possible en VBA de changer la couleur des courbes d'un graphiques?

J'ai réussi avec Excel et l'enregistreur de macro ne m'enregistre que la sélection des courbes : 

    ActiveSheet.ChartObjects("Chart 6").Activate
    ActiveChart.SeriesCollection(1).Points(1).Select
    ActiveChart.SeriesCollection(1).Points(2).Select
    ActiveChart.SeriesCollection(1).Points(3).Select

Merci du coup de pouce!

A voir également:

3 réponses

Réponse 1 / 3
Polux31 Messages postés 7219 Statut Membre 1 204
 
Bonjour,

Il faut utiliser la propriété Border de SeriesCollection() et ensuite la propriété Color : 

ActiveChart.SeriesCollection(1).Border.Color = RGB(255,0,0)


;0)
5
Réponse 2 / 3
sym59 Messages postés 46 Statut Membre
 
J'ai trouvé ceci : 

Sub Macro5()

    Dim NbPoints
    
    NbPoints = ActiveSheet.ChartObjects("Chart 6").Chart.SeriesCollection(1).Points.Count
    
    For i = 1 To NbPoints
        With ActiveSheet.ChartObjects("Chart 6").Chart.SeriesCollection(1).Points(i)
            .Interior.Color = RGB(255, 75 * i, 0)
        End With
    Next i
    
End Sub
0
Polux31 Messages postés 7219 Statut Membre 1 204
 
Tu demandes d'affecter une couleur à une courbe ... mais là ton code s'applique à un graphe histogramme !!!
0
Réponse 3 / 3
sym59 Messages postés 46 Statut Membre
 
Bonjour Polux!

Excuse moi du langage, j'utilise en effet des barres 3D et des donuts...

Merci de la précision ;-)
0

Discussions similaires

sertissage des cables rj45
lekludo -
brupala -

7 réponses