constant indicating the gradient style for the specified fill. Read-only.
MsoGradientStyle can be one of these MsoGradientStyle constants. |
msoGradientDiagonalDown |
msoGradientDiagonalUp |
msoGradientFromCenter |
msoGradientFromCorner |
msoGradientFromTitle |
msoGradientHorizontal |
msoGradientMixed Return value only; indicates a combination of the other states in the specified shape range. |
msoGradientVertical |
expression.GradientStyle
expression Required. An expression that returns one of the objects in the Applies To list.
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.
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