将指定的填充方式设置为预设过渡。
expression.PresetGradient(Style, Variant, PresetGradientType)
expression 必需。返回 FillFormat 对象的表达式。
Style MsoGradientStyle，必需。过渡样式。
| MsoGradientStyle 可以是下列 MsoGradientStyle 常量之一： |
| msoGradientDiagonalDown |
| msoGradientDiagonalUp |
| msoGradientFromCenter |
| msoGradientFromCorner |
| msoGradientFromTitle 仅应用于 Microsoft PowerPoint。 |
| msoGradientHorizontal |
| msoGradientMixed |
| msoGradientVertical |
Variant Long 类型，必需。过渡变量。取值范围为从 1 到 4，对应于“填充效果”对话框中“过渡”选项卡上的四种变形。如果 Style 为 msoGradientFromCenter，则此参数可为 1 或 2。
PresetGradientType 必需，MsoPresetGradientType。 过渡类型。
| MsoPresetGradientType 可以是下列 MsoPresetGradientType 常量之一： |
| msoGradientBrass |
| msoGradientChrome |
| msoGradientDaybreak |
| msoGradientEarlySunset |
| msoGradientFog |
| msoGradientGoldII |
| msoGradientLateSunset |
| msoGradientMoss |
| msoGradientOcean |
| msoGradientPeacock |
| msoGradientRainbowII |
| msoGradientSilver |
| msoGradientWheat |
| msoPresetGradientMixed |
| msoGradientCalmWater |
| msoGradientChromeII |
| msoGradientDesert |
| msoGradientFire |
| msoGradientGold |
| msoGradientHorizon |
| msoGradientMahogany |
| msoGradientNightfall |
| msoGradientParchment |
| msoGradientRainbow |
| msoGradientSapphire |
本示例将一个具有预设过渡填充方式的矩形添至活动文档中。
ActiveDocument.Shapes.AddShape( _
msoShapeRectangle, 90, 90, 140, 80).Fill.PresetGradient _
msoGradientHorizontal, 1, msoGradientBrass