设置指定填充为双色过渡。
expression.TwoColorGradient(Style, Variant)
expression 必选。该表达式返回“应用于”列表中的对象之一。
Style 必选。MsoGradientStyle 类型。过渡样式。
MsoGradientStyle 可以是下列 MsoGradientStyle 类型常数之一。 |
msoGradientDiagonalDown |
msoGradientDiagonalUp |
msoGradientFromCenter |
msoGradientFromCorner |
msoGradientFromTitle |
msoGradientHorizontal |
msoGradientMixed |
msoGradientVertical |
Variant 必选。Long 类型。过渡变量。可为 1 到 4 之间的值,对应于“填充效果”对话框中“过渡”选项卡上的四个变量。如果 Style 为 msoGradientFromTitle 或 msoGradientFromCenter,则参数可为 1 或 2。
本示例向 myDocument
中添加一个具有双色过渡填充效果的矩形,并设置填充的前景色和背景色。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, Left:=0, _
Top:=0, Width:=40, Height:=80).Fill
.ForeColor.RGB = RGB(Red:=128, Green:=0, Blue:=0)
.BackColor.RGB = RGB(Red:=0, Green:=170, Blue:=170)
.TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
End With