Change the formatting of multiple charts at once when they're in chart sheets using vba
Sub FormatCharts()
Dim cht As Chart
For Each cht In Application.Charts
With cht.FullSeriesCollection(1).Format.Line
.ForeColor.ObjectThemeColor = msoThemeColorAccent5
.Weight = 1
.DashStyle = msoLineLongDash
End With
Next
End Sub