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