How to format multiple charts at once in Excel

Sub FormatCharts()
Dim ChtObj As ChartObject
For Each ChtObj In ActiveSheet.ChartObjects
' With ChtObj.Chart.FullSeriesCollection(1).Format.Line
' .ForeColor.ObjectThemeColor = msoThemeColorAccent2
' End With
ChtObj.Chart.Axes(xlCategory).TickLabels.NumberFormat = "dd-mmm"
Next ChtObj
End Sub