将指定的填充方式设置为预设过渡。
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