GradientStyle Property

Microsoft Word Visual Basic

GradientStyle Property

       

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