OneColorGradient 方法

将指定的填充方式设置为单色过渡。

expression.OneColorGradient(Style, Variant, Degree)

expression 必需。返回 FillFormat 对象的表达式。

Style MsoGradientStyle，必需。过渡样式。

MsoGradientStyle 可以是下列 MsoGradientStyle 常量之一：

msoGradientDiagonalDown

msoGradientDiagonalUp

msoGradientFromCenter

msoGradientFromCorner

msoGradientFromTitle 仅用于 Microsoft PowerPoint。

msoGradientHorizontal

msoGradientMixed

msoGradientVertical

Variant Long 类型，必需。过渡变量。取值范围为从 1 到 4，对应于“填充效果”对话框中“过渡”选项卡上的四种变形。如果 Style 为 msoGradientFromCenter，则此参数可为 1 或 2。

Degree Single 类型，必需。指定过渡的程度。可取从 0.0（深）到 1.0（浅）之间的值。

示例

本示例将在活动文档中添加一个具有单色过渡填充效果的矩形。

With ActiveDocument.Shapes.AddShape(msoShapeRectangle, _
        90, 90, 90, 80).Fill
    .ForeColor.RGB = RGB(0, 128, 128)
    .OneColorGradient msoGradientHorizontal, 1, 1
End With