Publisher.FillFormat.GradientStyle.md

title	keywords	f1_keywords	api_name	ms.assetid	ms.date	ms.localizationpriority
FillFormat.GradientStyle property (Publisher)	vbapb10.chm2359556	vbapb10.chm2359556	Publisher.FillFormat.GradientStyle	38a38de1-4ed3-7919-421f-474b0b5d7b2f	06/07/2019	medium

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 

[!includeSupport and feedback]