GradientVariant 属性

返回指定填充的过渡变量。对于多数过渡填充，该值为从 1 到 4 的整数。如果过渡样式为 msoGradientFromTitle 或 msoGradientFromCenter，该属性返回 1 或 2。该属性的值对应于 “填充效果” 对话框中 “过渡” 选项卡的过渡变量（按从左向右、从上到下编号）。只读。Long 类型。

该属性为只读。使用 OneColorGradient、PresetGradient 或 TwoColorGradient 方法设置填充的过渡变量。

示例

本示例向 myDocument 中添加矩形，并设置该矩形的填充过渡变量，以匹配名为“rect1”的形状的过渡变量。要执行本示例，“rect1”必须使用过渡填充。

Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    gradVar1 = .Item("rect1").Fill.GradientVariant
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradient msoGradientHorizontal, gradVar1, 1
    End With
End With