Notitie
Voor toegang tot deze pagina is autorisatie vereist. U kunt proberen u aan te melden of mappen te wijzigen.
Voor toegang tot deze pagina is autorisatie vereist. U kunt proberen om mappen te wijzigen.
Returns the preset gradient type for the specified fill. Read-only.
Syntax
expression.PresetGradientType
expression A variable that represents a FillFormat object.
Return value
MsoPresetGradientType
Remarks
Use the PresetGradient method to set the preset gradient type for the fill.
The value of the PresetGradientType property 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 |
Example
This example changes the fill for all shapes in myDocument with the Moss preset gradient fill to the Fog preset gradient fill.
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
See also
Support and feedback
Have questions or feedback about Office VBA or this documentation? Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.