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:
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.
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:
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.