FillFormat.GradientVariant 属性 (Publisher)

返回 Long 类型，表示指定填充的渐变变量。 通常情况下，值为从 1 到 4 的大多数渐变填充的整数。 如果 该值 或 整数 的渐变样式，该属性将返回 1 或 2。

此属性的值对应于 填充效果对话框中 渐变选项卡上的渐变变量 (按从左到右和从上到下的顺序编号)。 此为只读属性。

语法

表达式。GradientVariant

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

返回值

Long

备注

使用 属性 、 只读 或 TwoColorGradient 方法设置填充的渐变变量。

示例

本示例向当前出版物添加一个矩形，并将该矩形的填充渐变变量设置为与名为 rect1 的形状的填充渐变变量相同。 为了使本示例生效，rect1 必须具有渐变填充。

Dim intVariant As Integer 
 
With ActiveDocument.Pages(1).Shapes 
 ' Store gradient variant of rect1. 
 intVariant = .Item("rect1").Fill.GradientVariant 
 ' Add new rectangle. 
 With .AddShape(Type:=msoShapeRectangle, _ 
 Left:=0, Top:=0, Width:=40, Height:=80).Fill 
 ' Set color and gradient of new rectangle. 
 .ForeColor.RGB = RGB(128, 0, 0) 
 .OneColorGradient Style:=msoGradientHorizontal, _ 
 Variant:=intVariant, Degree:=1 
 End With 
End With 

支持和反馈

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