设置指定填充为单色过渡。
expression.OneColorGradient(Style, Variant, Degree)
expression 必选。该表达式返回一个 FillFormat 对象。
Style 必选。MsoGradientStyle 类型。过渡样式。
MsoGradientStyle 可以是下列 MsoGradientStyle 类型常数之一。 |
msoGradientDiagonalDown |
msoGradientDiagonalUp |
msoGradientFromCenter |
msoGradientFromCorner |
msoGradientFromTitle |
msoGradientHorizontal |
msoGradientMixed |
msoGradientVertical |
Variant 必选。Long 类型。过渡变量。可为 1 到 4 之间的值,对应于“填充效果”对话框的“过渡”选项卡中的四个变量。如果 Style 为 msoGradientFromTitle 或 msoGradientFromCenter,则该参数可为 1 或 2。
Degree 必选。Single 类型。过渡的度数。可为 0.0(暗)到 1.0(亮)之间的值。
本示例在 myDocument
中添加一个具有单色过渡填充效果的矩形。
Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
.AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill
.ForeColor.RGB = RGB(0, 128, 128)
.OneColorGradient msoGradientHorizontal, 1, 1
End With