全部显示

OneColorGradient 方法

       

设置指定填充为单色过渡。

expression.OneColorGradient(Style, Variant, Degree)

expression  必选。该表达式返回一个 FillFormat 对象。

Style  必选。MsoGradientStyle 类型。过渡样式。

Variant  必选。Long 类型。过渡变量。可为 1 到 4 之间的值,对应于“填充效果”对话框的“过渡”选项卡中的四个变量。如果 StylemsoGradientFromTitlemsoGradientFromCenter,则该参数可为 1 或 2。

Degree  必选。Single 类型。过渡的度数。可为 0.0(暗)到 1.0(亮)之间的值。

示例

本示例在 myDocument 中添加一个具有单色过渡填充效果的矩形。

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