返回或预设指定填充的过渡类型。只读。MsoPresetGradientType 类型。使用 PresetGradient 方法设置该填充的预设过渡类型。
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 必选。该表达式返回“应用于”列表中的对象之一。
本示例将 myDocument
中所有带有 Moss 预设过渡填充的形状更改为 Fog 预设过渡填充。
Set myDocument = ActivePresentation.Slides(1)
For Each s In myDocument.Shapes
With s.Fill
If .PresetGradientType = msoGradientMoss Then
.PresetGradient = msoGradientFog
End If
End With
Next