Question

该属性返回指定填充的过渡颜色类型。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