PowerPoint VBA教程:TwoColorGradient方法

设置指定填充为双色过渡。

expression.TwoColorGradient(Style, Variant)

expression  必选。该表达式返回“应用于”列表中的对象之一。

Style  必选。MsoGradientStyle 类型。过渡样式。

MsoGradientStyle 可以是下列 MsoGradientStyle 类型常数之一。
msoGradientDiagonalDown
msoGradientDiagonalUp
msoGradientFromCenter
msoGradientFromCorner
msoGradientFromTitle
msoGradientHorizontal
msoGradientMixed
msoGradientVertical

Variant  必选。Long 类型。过渡变量。可为 1 到 4 之间的值,对应于“填充效果”对话框中“过渡”选项卡上的四个变量。如果 Style 为 msoGradientFromTitle 或 msoGradientFromCenter,则参数可为 1 或 2。

VBA示例

本示例向myDocument 中添加一个具有双色过渡填充效果的矩形,并设置填充的前景色和背景色。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes.AddShape(Type:=msoShapeRectangle, Left:=0, _
        Top:=0, Width:=40, Height:=80).Fill
    .ForeColor.RGB = RGB(Red:=128, Green:=0, Blue:=0)
    .BackColor.RGB = RGB(Red:=0, Green:=170, Blue:=170)
    .TwoColorGradient Style:=msoGradientHorizontal, Variant:=1
End With

上页:PowerPoint VBA教程:TrimText方法 下页:PowerPoint VBA教程:Ungroup方法

PowerPoint VBA教程:TwoColorGradient方法

PowerPoint VBA教程:Ungroup方法 PowerPoint VBA教程:Unselect方法
PowerPoint VBA教程:Update方法 PowerPoint VBA教程:UpdateLinks方法
PowerPoint VBA教程:UseDefaultFolderSuffix方法 PowerPoint VBA教程:UserPicture方法
PowerPoint VBA教程:UserTextured方法 PowerPoint VBA教程:Value方法
PowerPoint VBA教程:WebPagePreview方法 PowerPoint VBA教程:Words方法
PowerPoint VBA教程:ZOrder方法 PowerPoint VBA教程:ActionSetting对象
PowerPoint VBA教程:ActionSettings集合对象 PowerPoint VBA教程:AddIn对象
PowerPoint VBA教程:AddIns集合对象 PowerPoint VBA教程:Adjustments对象
PowerPoint VBA教程:AnimationBehavior对象 PowerPoint VBA教程:AnimationBehaviors集合
PowerPoint VBA教程:AnimationPoint对象 PowerPoint VBA教程:AnimationPoints集合
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号