Series.SeriesColorGradientStyle (Excel)
Os valores de retorno possíveis são xlSeriesColorGradientStyleDiverging, xlSeriesColorGradientStyleSequential.
ActiveChart.FullSeriesCollection(1).SeriesColorGradientStyle = xlSeriesColorGradientStyleDiverging