将指定填充设为一个预设的过渡。
expression.PresetGradient(Style, Variant, PresetGradientType)
expression 必选。该表达式返回一个 FillFormat 对象。
Style 必选。MsoGradientStyle类型。过渡样式。
| MsoGradientStyle 是下列 MsoGradientStyle 常数之一。 |
| msoGradientDiagonalDown |
| msoGradientDiagonalUp |
| msoGradientFromCenter |
| msoGradientFromCorner |
| msoGradientFromTitle |
| msoGradientHorizontal |
| msoGradientMixed |
| msoGradientVertical |
Variant 必选。Integer 类型。过渡变量。可以是从 1 到 4 的值，对应于“填充效果”对话框中“过渡”选项卡上的 4 个变量。如果“样式”是 msoGradientFromTitle 或 msoGradientFromCenter，此参数可以是 1 或 2。
PresetGradientType 必选。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 |
本示例将一个带有预设过渡填充的矩形添加到 myDocument。
Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 140, 80) _
.Fill.PresetGradient msoGradientHorizontal, 1, msoGradientBrass