GradientStyle Property

Microsoft Word Visual Basic

Returns the gradient style for the specified fill. Read-only MsoGradientStyle.

MsoGradientStyle can be one of these MsoGradientStyle constants.
msoGradientDiagonalDown
msoGradientDiagonalUp
msoGradientFromCenter
msoGradientFromCorner
msoGradientFromTitle Only used with Microsoft PowerPoint.
msoGradientHorizontal
msoGradientMixed
msoGradientVertical

expression.GradientStyle

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

This property is read-only. Use the OneColorGradient or TwoColorGradient method to set the gradient style for the fill.

Note  Attempting to return this property for a fill that doesn't have a gradient generates an error. Use the Type property to determine whether the fill has a gradient.

Example

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

Dim docActive As Document
Dim lngGradient As Long

Set docActive = ActiveDocument
With docActive.Shapes
   
lngGradient
= .Item("rect1").Fill.GradientStyle
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradient
lngGradient, 1, 1
    End With
End With