Series.SeriesColorGradientStyle (PowerPoint)

Possible Values are xlSeriesColorGradientStyleDiverging, xlSeriesColorGradientStyleSequential.
ActiveWindow.RangeFromPoint.Chart.FullSeriesCollection(1).SeriesColorGradientStyle = xlSeriesColorGradientStyleDiverging