FillFormat.GradientVariant property (Publisher)
Returns a Long indicating the gradient variant for the specified fill. Generally, values are integers from 1 to 4 for most gradient fills. If the gradient style is msoGradientFromTitle or msoGradientFromCenter, this property returns either 1 or 2.
The values for this property correspond to the gradient variants (numbered from left to right and from top to bottom) on the Gradient tab in the Fill Effects dialog box. Read-only.
Syntax
expression.GradientVariant
expression A variable that represents a FillFormat object.
Return value
Long
Remarks
Use the OneColorGradient, PresetGradient, or TwoColorGradient method to set the gradient variant for the fill.
Example
This example adds a rectangle to the active publication and sets its fill gradient variant to match that of the shape named rect1. For the example to work, rect1 must have a gradient fill.
Dim intVariant As Integer
With ActiveDocument.Pages(1).Shapes
' Store gradient variant of rect1.
intVariant = .Item("rect1").Fill.GradientVariant
' 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:=msoGradientHorizontal, _
Variant:=intVariant, 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