Couleur des courbes automatique

[Lepilote]

Bonjour
Je tracer des courbes sur un diagramme X Y avec l'aide du vba.
Je trace 11 courbe sur ce diagramme comme la procédure de tracer est toujours la même j'ai intégré le tour dans une boucle for.
Voila ma question: toute mes courbes on la même couleur et je voudrai qu'a chaque intération la couleur change.
J'ai essayé avec l'enregistreur de macro mais je n'ai rien trouvé.
Voici mon code:

    l = 120 'Zeile
    c = Lettre2NumCol("BP") 'Spalte
    Dia_Num = 5 'Nummer des Diagramms
    
    For k = 2 To 3
    
        'Selektierung die Datei
        Cells(l + 1, c - 1).Select
        ActiveCell.End(xlDown).Select
        Zone1 = ActiveCell.Address
        Selection.Offset(0, 2).Select
        Zone2 = ActiveCell.Address
        Set D = Range(Cells(l + 1, c - 1), Zone1)
        Set X = Range(Cells(l + 1, c + 1), Zone2)
        Set MaPlageMultiZone = Union(X, D)
        ZoneSelection = MaPlageMultiZone.Select
    
        'Plottierung die Kurve
        ActiveSheet.ChartObjects("Diagramm " & Dia_Num & "").Activate
        ActiveChart.SeriesCollection.NewSeries
        ActiveChart.SeriesCollection(k).Delete
        ActiveChart.SeriesCollection(k).Name = Cells(l, c)
        ActiveChart.SeriesCollection(k).XValues = D
        ActiveChart.SeriesCollection(k).Values = X
        ActiveChart.SeriesCollection(k).Select
        Selection.MarkerStyle = -4142
        With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.TintAndShade = 0
        .ForeColor.Brightness = 0
        .Transparency = 0
        End With


        c = c + 3
    Next k

Il faudrais changer les propriétés de:
.ForeColor.ObjectThemeColor dans le Selection.Format.Line (mais je ne connais pas la propriété couleur au hasard ou couleur automatique)
Merci beaucoup de votre aide.

 

[Misange]

Re : Couleur des courbes automatique

Bonjour

trace un graphique quelconque
lance l'enregistreur de macro
change la couleur de ta courbe et récupère le code