FillFormat.GradientStyle property (Publisher)

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

Syntax

expression.GradientStyle

expression A variable that represents a FillFormat object.

Return value

MsoGradientStyle

Remarks

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

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.

The GradientStyle property value can be one of the MsoGradientStyle constants declared in the Microsoft Office type library.

Example

This example adds a rectangle to the active publication 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 intStyle As Integer 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store gradient style of rect1. 
 intStyle = .Item("rect1").Fill.GradientStyle 
 ' 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:=intStyle, _ 
 Variant:=1, Degree:=1 
 End With 
End With 

Support and feedback

Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.