Word VBA教程:GradientDegree属性

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

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

VBA示例

本示例将一个矩形添至活动文档,将其填充过渡设为与名为 “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

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号