Dik moc za odpověď, nakonec jsem se tím prokousal a možná složitěji vytvořil tohle makro:

Sub Makro1()
'
' Makro1 Makro
'

'
ActiveSheet.ChartObjects("Graf 1").Activate
For i = 1 To 50
' počet řad, které mají být změněny - barva 1
ActiveChart.FullSeriesCollection(i).Select

With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(237, 125, 49)
'oranžová
.Transparency = 0
End With
With Selection.Format.Line
.Visible = msoTrue
.Weight = 0.75
End With
Next i

ActiveSheet.ChartObjects("Graf 1").Activate
For i = 51 To 100
' počet řad, které mají být změněny - barva 2
ActiveChart.FullSeriesCollection(i).Select

With Selection.Format.Line
.Visible = msoTrue
.ForeColor.RGB = RGB(91, 155, 213)
'modrá
.Transparency = 0
End With
With Selection.Format.Line
.Visible = msoTrue
.Weight = 0.75
End With
Next i

End Sub