Sub graphColoring()
' Set myChart = ActiveSheet.ChartObjects(1).Chart
'n = myChart.SeriesCollection(1).Points.Count
'MsgBox (ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1).Points.Count)
With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
n = .Points.Count
For i = 1 To n
'current point
With .Points(i)
'''' marker
''' marker style and visiblity
.MarkerStyle = xlMarkerStyleAutomatic
'' other candidats
'xlMarkerStyleNone
''' marker color
'.Format.Fill.ForeColor.RGB = RGB(i * 255 / n, 0, 0)
.MarkerBackgroundColor = RGB(255, 255, 255)
'''' line
''' line visiblity
.Format.Line.Visible = msoTrue
''' line color
.Format.Line.ForeColor.RGB = RGB(i * 255 / n, 0, (n - i) * 255 / n)
End With
Next
End With
End Sub