Word VBA教程:TwoColorGradient方法

将指定的填充设为双色过渡。

expression.TwoColorGradient(Style, Variant)

expression   必需。返回 FillFormat对象的表达式。

 Style  MsoGradientStyle 类型,必需。过渡样式。

MsoGradientStyle 可以是下列 MsoGradientStyle 常量之一:
msoGradientDiagonalDown
msoGradientDiagonalUp
msoGradientFromCenter
msoGradientFromCorner
msoGradientFromTitle 仅用于 Microsoft PowerPoint。 
msoGradientHorizontal
msoGradientMixed
msoGradientVertical

Variant   Long 类型,必需。过渡变量。取值范围为从 1 到 4,对应于“填充效果”对话框中“过渡”选项卡上的四种变形。如果 Style 为 msoGradientFromCenter,则此参数可为 1 或 2。

VBA示例

本示例将一个具有双色过渡填充方式的矩形添加到活动文档中,然后设置填充的背景色和前景色。


With ActiveDocument.Shapes.AddShape(msoShapeRectangle, _
        0, 0, 40, 80).Fill
    .ForeColor.RGB = RGB(128, 0, 0)
    .BackColor.RGB = RGB(0, 170, 170)
    .TwoColorGradient msoGradientHorizontal, 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号