excel_VBA 散布図のグラデーション

Sub graphColoring()
　With ActiveSheet.ChartObjects(1).Chart.SeriesCollection(1)
　　n = .Points.Count
　　For i = 1 To n
　　　.Points(i).Format.Fill.ForeColor.RGB = RGB(i * 255 / n, 0, 0)
　　Next
　End With
End Sub