Question

全部显示

设置指定填充为双色过渡。

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