Series.SeriesColorGradientStyle (Excel) ActiveChart.FullSeriesCollection(1).SeriesColorGradientStyle = xlSeriesColorGradientStyleDiverging