Word VBA教程:GradientStyle属性

返回指定填充的过渡样式。MsoGradientStyle,只读。

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

expression.GradientStyle

expression   必需。该表达式返回“应用于”列表中的一个对象。

此属性为只读。可用OneColorGradientTwoColorGradient方法设置填充的过渡样式。

注意   从没有过渡设置的填充返回此属性将导致出错。可用Type属性确定填充是否有过渡设置。

VBA示例

本示例将一个矩形添至活动文档,并将其填充过渡类型设为与名为“rect1”的图形的过渡相同。只有在 rect1 有过渡填充时,本示例才有效。


Dim docActive As Document
Dim lngGradient As Long
Set docActive = ActiveDocument

With docActive.Shapes
   lngGradient = .Item("rect1").Fill.GradientStyle
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradientlngGradient, 1, 1
    End With
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号