返回指定填充的过渡样式。MsoGradientStyle,只读。
MsoGradientStyle 可以是下列 MsoGradientStyle 常量之一: |
msoGradientDiagonalDown |
msoGradientDiagonalUp |
msoGradientFromCenter |
msoGradientFromCorner |
msoGradientFromTitle 仅用于 Microsoft PowerPoint。 |
msoGradientHorizontal |
msoGradientMixed |
msoGradientVertical |
expression.GradientStyle
expression 必需。该表达式返回“应用于”列表中的一个对象。
此属性为只读。可用 OneColorGradient 或 TwoColorGradient 方法设置填充的过渡样式。
注意 从没有过渡设置的填充返回此属性将导致出错。可用 Type 属性确定填充是否有过渡设置。
本示例将一个矩形添至活动文档,并将其填充过渡类型设为与名为“rect1”的图形的过渡相同。只有在 rect1 有过渡填充时,本示例才有效。
Dim docActive As Document Dim lngGradient As Long Set docActive = ActiveDocument
With docActive.Shapes
lngGradient
= .Item("rect1").Fill.GradientStyle With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill .ForeColor.RGB = RGB(128, 0, 0) .OneColorGradient
lngGradient
, 1, 1 End With End With