that represents the preset gradient type for the specified fill. Read-only.
| MsoPresetGradientType can be one of these MsoPresetGradientType constants. |
| 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 Required. An expression that returns one of the objects in the Applies To list.
Remarks
Use the PresetGradient method to set the preset gradient type for the fill.
Example
This example changes the fill for the first shape on the first page of the active publication to the Fog preset gradient fill if it is not already set to the Fog preset gradient. This example assumes that there is at least one shape on the first page of the active publication.
Sub SetGradient()
With ActiveDocument.Pages(1).Shapes(1).Fill
If .PresetGradientType <> msoGradientFog Then
.PresetGradient Style:=msoGradientHorizontal, _
Variant:=1, PresetGradientType:=msoGradientFog
End If
End With
End Sub