Series.SeriesColorGradientStyle (PowerPoint)

Possible return values are xlSeriesColorGradientStyleDiverging, xlSeriesColorGradientStyleSequential.

ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).SeriesColorGradientStyle = xlSeriesColorGradientStyleDiverging