GradientVariant Property

expression.GradientVariant

expression    Required. An expression that returns one of the objects in the Applies To list.

Remarks

Use the OneColorGradient, PresetGradient, or TwoColorGradient method to set the gradient variant for the fill.

Example

This example adds a rectangle to the active publication and sets its fill gradient variant to match that of the shape named rect1. For the example to work, rect1 must have a gradient fill.

Dim intVariant As Integer

With ActiveDocument.Pages(1).Shapes
    ' Store gradient variant of rect1.
    intVariant = .Item("rect1").Fill.GradientVariant
    ' Add new rectangle.
    With .AddShape(Type:=msoShapeRectangle, _
            Left:=0, Top:=0, Width:=40, Height:=80).Fill
        ' Set color and gradient of new rectangle.
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradient Style:=msoGradientHorizontal, _
            Variant:=intVariant, Degree:=1
    End With
End With