Series.SeriesColorGradientStyle (Word)

Os valores de retorno possíveis são xlSeriesColorGradientStyleDiverging, xlSeriesColorGradientStyleSequential.

ActiveDocument.Background.Chart.FullSeriesCollection(1).SeriesColorGradientStyle = xlSeriesColorGradientStyleDiverging