FillFormat.PresetGradient (PowerPoint)

Sets the specified fill to a preset gradient.

Syntax : expression.PresetGradient (Style, Variant, PresetGradientType)

Dim lngVariant As Long: lngVariant = 1
ActivePresentation.Slides(1).Shapes(1).Fill.PresetGradient Style:=msoGradientMixed, Variant:=lngVariant, PresetGradientType:=msoPresetGradientMixed

Arguments

The following arguments are required:

Style (Office.MsoGradientStyle) - The gradient style.

Variant (Long) - The gradient variant. Can be a value from 1 to 4, corresponding to the four variants on the Gradient subtab on the Shape Fill tab. If Style is msoGradientFromTitle or msoGradientFromCenter, this argument can be either 1 or 2.

PresetGradientType (Office.MsoPresetGradientType) - The gradient type.