GradientDegree 属性

返回值表明单色过渡填充的深浅程度。0 表示黑色与图形前景色混色形成过渡；1 表示白色混色；介于 0 和 1 之间的值表示混入前景色偏深或偏白的阴影。Single 类型，只读。

此属性为只读。可用 OneColorGradient 方法设置填充的过渡程度。

示例

本示例将一个矩形添至活动文档，将其填充过渡设为与名为 “Rectangle 2”的图形的填充过渡相同。如果 Rectangle 2 没有单色过渡填充，则本示例无效。

Dim docActive As Document
Dim sngGradient As Single

Set docActive = ActiveDocument

With docActive.Shapes
    sngGradient = .Item("Rectangle 2").Fill.GradientDegree
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(0, 128, 128)
        .OneColorGradient msoGradientHorizontal, 1, sngGradient
    End With
End With