该属性返回指定填充的过渡颜色类型。MsoGradientColorType,只读。
MsoGradientColorType 可以是下列 MsoGradientColorType 常量之一: |
msoGradientColorMixed |
msoGradientOneColor |
msoGradientPresetColors |
msoGradientTwoColors |
expression.GradientColorType
expression 必需。该表达式返回“应用于”列表中的一个对象。
此属性为只读。可用 OneColorGradient、PresetGradient 或 TwoColorGradient 方法设置填充的过渡类型。
本示例将活动文档中所有图形的双色过渡填充更改为预设的过渡填充。
Dim docActive As Document Dim shapeLoop As Shape Set docActive = ActiveDocument
For Each
shapeLoop
In docActive.Shapes With
shapeLoop
.Fill If .GradientColorType = msoGradientTwoColors Then .PresetGradient msoGradientHorizontal, 1, _ msoGradientBrass End If End With Next