Comment définir la couleur d'une série de donnée ?

Bonjours tous le monde, je cherche la façon de définir la couleur d'une série de données.

Ma macro:

Sheets("feuil3").Select

ActiveSheet.ChartObjects("Graphique 10").Activate

ActiveChart.ChartType = xlXYScatter

Application.CutCopyMode = False

With ActiveChart.SeriesCollection.NewSeries

.Name = "Mode A"

.XValues = "=Feuil4!$N$36:$N$60"

.Values = "=Feuil4!$O$36:$O$60"

.ChartType = xlXYScatterSmooth

.MarkerStyle = 5

.MarkerSize = 2

Quel code faut'il rajouter pour définir la couleur de ma série ? j'ai essayé avec: .ForeColor.RGB = RGB(128, 0, 0) mais sa ne marche pas.

Si quelqu'un à une idée ? Merci d'avance.

Bonjour,

.Format.Line.ForeColor.RGB = RGB(128, 0, 0)

Cordialement

ctac

ctac a écrit :

Bonjour,

.Format.Line.ForeColor.RGB = RGB(128, 0, 0)

Cordialement

ctac

Merci, c'est parfait.

J'essaye aussi de changer la couleur de mon nuage de point, pour se faire j'utilise cette macro:

Sheets("feuil3").Select

ActiveSheet.ChartObjects("Graphique 10").Activate

Application.CutCopyMode = False

With ActiveChart.SeriesCollection.NewSeries

.Name = "=Feuil3!$AD$7"

.XValues = "=Feuil2!$F$2:$F$1048576"

.Values = "=Feuil2!$E$2:$E$1048576"

.ChartType = xlXYScatter

.MarkerStyle = 5

.MarkerSize = 2

.MarkerBackgroundColor = RGB(183, 1, 1)

.MarkerForegroundColor = RGB(183, 1, 1)

Le problème c'est qu'il me change mon type de marqueur depuis que j'ai rajouté les deux dernières lignes.

EDIT: Résolu, en faite le BackgroundColor permet de colorier le tour du marqueur alors que le ForegroundColor permet directement de colorier le marqueur, il suffit donc d'enlever le BackgroundColor.