PowerPoint VBA教程:PresetGradient方法

将指定填充设为一个预设的过渡。

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

VBA示例

本示例将一个带有预设过渡填充的矩形添加到myDocument


Set myDocument = ActivePresentation.Slides(1)
myDocument.Shapes.AddShape(msoShapeRectangle, 90, 90, 140, 80) _
    .Fill.PresetGradient msoGradientHorizontal, 1, msoGradientBrass

上页:PowerPoint VBA教程:PresetDrop方法 下页:PowerPoint VBA教程:PresetTextured方法

PowerPoint VBA教程:PresetGradient方法

PowerPoint VBA教程:PresetTextured方法 PowerPoint VBA教程:Previous方法
PowerPoint VBA教程:PrevNode方法 PowerPoint VBA教程:PrintOut方法
PowerPoint VBA教程:Publish方法 PowerPoint VBA教程:Quit方法
PowerPoint VBA教程:Range方法 PowerPoint VBA教程:RangeFromPoint方法
PowerPoint VBA教程:Regroup方法 PowerPoint VBA教程:ReloadAs方法
PowerPoint VBA教程:Remove方法 PowerPoint VBA教程:RemoveBaseline方法
PowerPoint VBA教程:RemovePeriods方法 PowerPoint VBA教程:Replace方法
PowerPoint VBA教程:ReplaceNode方法 PowerPoint VBA教程:ReplyWithChanges方法
PowerPoint VBA教程:RerouteConnections方法 PowerPoint VBA教程:ResetRotation方法
PowerPoint VBA教程:ResetSlideTime方法 PowerPoint VBA教程:RotatedBounds方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号