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.
Feedback
https://aka.ms/ContentUserFeedback.
Coming soon: Throughout 2024 we will be phasing out GitHub Issues as the feedback mechanism for content and replacing it with a new feedback system. For more information see:Submit and view feedback for