全部显示返回指定填充对象的预设过渡类型。MsoPresetGradientType，只读。
| MsoPresetGradientType 可以是下列 MsoPresetGradientType 常量之一： |
| msoGradientBrass |
| msoGradientCalmWater |
| msoGradientChrome |
| msoGradientChromeII |
| msoGradientDaybreak |
| msoGradientDesert |
| msoGradientEarlySunset |
| msoGradientFire |
| msoGradientFog |
| msoGradientGold |
| msoGradientGoldII |
| msoGradientHorizon |
| msoGradientLateSunset |
| msoGradientMahogany |
| msoGradientMoss |
| msoGradientNightfall |
| msoGradientOcean |
| msoGradientParchment |
| msoGradientPeacock |
| msoGradientRainbow |
| msoGradientRainbowII |
| msoGradientSapphire |
| msoGradientSilver |
| msoGradientWheat |
| msoPresetGradientMixed |
expression.PresetGradientType
expression 必需。该表达式返回一个 FillFormat 对象。
本示例将 myDocument 中的所有图形的预设过渡填充类型由“茵茵绿原”改为“薄雾浓云”。
Set myDocument = ActiveDocument
For Each s In myDocument.Shapes
With s.Fill
If .PresetGradientType = msoGradientMoss Then
.PresetGradient msoGradientHorizontal, 1, _
msoGradientFog
End If
End With
Next