GradientStyle Property [Publisher 2003 VBA Language Reference]
MsoGradientStyle
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
Applies to | FillFormat Object