Word VBA教程:PresetGradient方法

将指定的填充方式设置为预设过渡。

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

VBA示例

本示例将一个具有预设过渡填充方式的矩形添至活动文档中。


ActiveDocument.Shapes.AddShape( _
    msoShapeRectangle, 90, 90, 140, 80).Fill.PresetGradient _
    msoGradientHorizontal, 1, msoGradientBrass

Word VBA教程

Word VBA参考教程:目录1 Word VBA参考教程:目录2
Word VBA参考教程:目录3 Word VBA参考教程:目录4
Word VBA参考教程:目录5 Word VBA参考教程:目录6
Word VBA参考教程:目录7 Word VBA参考教程:目录8
Word VBA参考教程:目录9 Word VBA参考教程:目录10
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号