FillFormat.GradientDegree 属性 (Publisher)

返回 一个 指示单色渐变填充的深浅程度。 值为 0 (零) 表示形状的前景色形成过渡; 混入黑色值为 1 表示白色混合和值介于 0 和 1 的前景颜色变深或变浅底纹混合中的平均值。 此为只读属性。

语法

表达式。GradientDegree

表达 一个代表 FillFormat 对象的变量。

返回值

单精度

备注

属性 方法用于设置填充的渐变程度。

示例

本示例向当前出版物添加一个矩形，并将该矩形的填充渐变等级设置为与名为 Rectangle 2 的形状的填充渐变等级相同。 如果 Rectangle 2 没有单色渐变填充，本示例会产生错误。

Dim sngDegree As Single 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store degree of one-color gradient. 
 sngDegree = .Item("Rectangle 2").Fill.GradientDegree 
 ' Add new rectangle. 
 With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill 
 ' Set color and gradient for new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=msoGradientHorizontal, _ 
 Variant:=1, Degree:=sngDegree 
 End With 
End With 

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。