将指定的填充方式设置为单色过渡。
expression.OneColorGradient(Style, Variant, Degree)
expression 必需。返回 FillFormat 对象的表达式。
Style MsoGradientStyle,必需。过渡样式。
MsoGradientStyle 可以是下列 MsoGradientStyle 常量之一: |
msoGradientDiagonalDown |
msoGradientDiagonalUp |
msoGradientFromCenter |
msoGradientFromCorner |
msoGradientFromTitle 仅用于 Microsoft PowerPoint。 |
msoGradientHorizontal |
msoGradientMixed |
msoGradientVertical |
Variant Long 类型,必需。过渡变量。取值范围为从 1 到 4,对应于“填充效果”对话框中“过渡”选项卡上的四种变形。如果 Style 为 msoGradientFromCenter,则此参数可为 1 或 2。
Degree Single 类型,必需。指定过渡的程度。可取从 0.0(深)到 1.0(浅)之间的值。
本示例将在活动文档中添加一个具有单色过渡填充效果的矩形。
With
ActiveDocument
.Shapes.AddShape(msoShapeRectangle, _ 90, 90, 90, 80).Fill .ForeColor.RGB = RGB(0, 128, 128) .OneColorGradient msoGradientHorizontal, 1, 1 End With