Changer la couleur d'un tracé/série

Bonjour à tous,

Je développe (comme je peux) une macro pour faciliter la création d'un graphique sur une feuille complète. Avec le code ci-joint je crée cette feuille graphique mais j'aimerai que le tracé soit de la couleur rouge auriez vous une solution s'il vous plait ?

Set nouveau_graphique1 = Charts.Add 'Créer la nouvelle feuille graphique
With nouveau_graphique1

.SetSourceData Source:=Sheets("Feuil1").Range(Range("Feuil1!A1").Offset(0, 0), Range("Feuil1!A1").Offset(0, 0).End(xlDown)) ' définition des plages de données
.Name = "Echantillon 1"
.ChartType = xlXYScatterSmoothNoMarkers
.HasTitle = True
.ChartTitle.Text = "Evolution de la force appliquée sur l'échantillon"
.HasAxis(xlCategory, xlPrimary) = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Text = "Force (N)"

End With

Sheets("Echantillon 1").Tab.Color = RGB(255, 0, 0)

Problème résolu à l'aide d'enregistrement de macro puis copier coller

Set nouveau_graphique1 = Charts.Add 'Créer la nouvelle feuille graphique
With nouveau_graphique1

.SetSourceData Source:=Sheets("Feuil1").Range(Range("Feuil1!A1").Offset(0, 0), Range("Feuil1!A1").Offset(0, 0).End(xlDown)) ' définition des plages de données
.Name = Sheets("Feuil1").Range("A1")
.ChartType = xlXYScatterSmoothNoMarkers
.HasTitle = True
.ChartTitle.Text = "Evolution de la force appliquée sur l'échantillon"
.HasAxis(xlCategory, xlPrimary) = False
.Axes(xlValue, xlPrimary).HasTitle = True
.Axes(xlValue, xlPrimary).AxisTitle.Text = "Force (N)"
.Tab.Color = RGB(255, 0, 0)
ActiveChart.ChartArea.Select
    ActiveChart.FullSeriesCollection(1).Select
    With Selection.Format.Line
        .Visible = msoTrue
        .ForeColor.RGB = RGB(255, 0, 0)
        .Transparency = 0
    End With

End With
Rechercher des sujets similaires à "changer couleur trace serie"