VBA Makro - nastavení stylů grafu na více grafů (aby byly stejné)

Jedná se o starou verzi Excelu, takže se tam používá Fill.ForeColor místo novější Format.Line.ForeColor.

Sub M_snb()

    Dim it As ChartObject, j As Integer

 For Each it In Sheet4.ChartObjects
     For j = 1 To it.Chart.SeriesCollection.Count
        it.Chart.SeriesCollection(j).Fill.ForeColor.ObjectThemeColor = j
        it.Chart.SeriesCollection(j).MarkerStyle = j \ 5
        it.Chart.SeriesCollection(j).MarkerSize = 3
        it.Chart.SeriesCollection(j).MarkerForegroundColor = j \ 5
     Next
   Next
End Sub