Word VBA教程:OneColorGradient方法

将指定的填充方式设置为单色过渡。

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(浅)之间的值。

VBA示例

本示例将在活动文档中添加一个具有单色过渡填充效果的矩形。


WithActiveDocument.Shapes.AddShape(msoShapeRectangle, _
        90, 90, 90, 80).Fill
    .ForeColor.RGB = RGB(0, 128, 128)
    .OneColorGradient msoGradientHorizontal, 1, 1
End With

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号