Word VBA教程:GradientColorType属性

该属性返回指定填充的过渡颜色类型。MsoGradientColorType,只读。

MsoGradientColorType 可以是下列 MsoGradientColorType 常量之一:
msoGradientColorMixed
msoGradientOneColor
msoGradientPresetColors
msoGradientTwoColors

expression.GradientColorType

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

此属性为只读。可用OneColorGradientPresetGradientTwoColorGradient方法设置填充的过渡类型。

VBA示例

本示例将活动文档中所有图形的双色过渡填充更改为预设的过渡填充。


Dim docActive As Document
Dim shapeLoop As Shape
Set docActive = ActiveDocument

For EachshapeLoopIn docActive.Shapes
    WithshapeLoop.Fill
        If .GradientColorType = msoGradientTwoColors Then
            .PresetGradient msoGradientHorizontal, 1, _
                msoGradientBrass
        End If
    End With
Next

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号