FillFormat.GradientDegree property (Publisher)
Returns a Single indicating how dark or light a one-color gradient fill is. A value of 0 (zero) means that black is mixed in with the shape's foreground color to form the gradient; a value of 1 means that white is mixed in; and values between 0 and 1 mean that a darker or lighter shade of the foreground color is mixed in. Read-only.
Syntax
expression.GradientDegree
expression A variable that represents a FillFormat object.
Return value
Single
Remarks
Use the OneColorGradient method to set the gradient degree for the fill.
Example
This example adds a rectangle to the active publication and sets the degree of its fill gradient to match that of the shape named Rectangle 2. If Rectangle 2 doesn't have a one-color gradient fill, this example generates an error.
Dim sngDegree As Single
With ActiveDocument.Pages(1).Shapes
' Store degree of one-color gradient.
sngDegree = .Item("Rectangle 2").Fill.GradientDegree
' Add new rectangle.
With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
' Set color and gradient for new rectangle.
.ForeColor.RGB = RGB(128, 0, 0)
.OneColorGradient Style:=msoGradientHorizontal, _
Variant:=1, Degree:=sngDegree
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