Select multiple graphs and apply same formatting

[Soum_]

Hello,

I have several curves on the same charts and want to apply a specific formatting to a group of curves.
Do you know how to select charts with vba and chose the desired style?
I am new to vba, so I am looking for something simple and this is what I did so far :

ActiveChart.Shapes.Range(Array("Chart1", "Chart2")).Select
With Selection.Format.Line
Selection.MarkerStyle = -4142
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent5
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With

Thank you

 

[NdNoviceHlp]

Hi *Soum and Welcome to the Board! Here's the basic outline for formatting all chart series. Adjust the sheet and chart name to suit. HTH. Dave

Dim Cnt As Integer
For Cnt = 1 To Sheets("Sheet1").ChartObjects("Chart1").Chart.SeriesCollection.Count
With Sheets("Sheet1").ChartObjects("Chart1").Chart.SeriesCollection(Cnt)
'.Border.ColorIndex = 1
'.Border.Weight = xlMedium
'.Border.LineStyle = xlContinuous
.MarkerStyle = xlMarkerStyleNone
'.MarkerStyle = -4142
.Visible = msoTrue
.ForeColor.ObjectThemeColor = msoThemeColorAccent5
.ForeColor.TintAndShade = 0
.ForeColor.Brightness = 0
.Transparency = 0
End With
Next Cnt

ps. Please use code tags