PowerPoint VBA教程:GradientStyle属性

返回指定填充的过渡样式。使用OneColorGradientPresetGradientTwoColorGradient方法设置填充的过渡样式。对未使用过渡的填充试图返回该属性将产生错误。使用Type属性决定该填充是否使用过渡。只读。MsoGradientStyle 类型。

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

expression.GradientStyle

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

VBA示例

本示例向myDocument 中添加矩形,并设置该矩形的填充过渡样式,以匹配名为“rect1”的形状的过渡样式。要执行本示例,“rect1”必须使用过渡填充。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes
    gradStyle1 = .Item("rect1").Fill.GradientStyle
    With .AddShape(msoShapeRectangle, 0, 0, 40, 80).Fill
        .ForeColor.RGB = RGB(128, 0, 0)
        .OneColorGradient gradStyle1, 1, 1
    End With
End With

上页:PowerPoint VBA教程:GradientDegree属性 下页:PowerPoint VBA教程:GradientVariant属性

PowerPoint VBA教程:GradientStyle属性

PowerPoint VBA教程:GradientVariant属性 PowerPoint VBA教程:GridDistance属性
PowerPoint VBA教程:GroupItems属性 PowerPoint VBA教程:HandoutMaster属性
PowerPoint VBA教程:HandoutOrder属性 PowerPoint VBA教程:HangingPunctuation属性
PowerPoint VBA教程:HasChildShapeRange属性 PowerPoint VBA教程:HasDiagram属性
PowerPoint VBA教程:HasDiagramNode属性 PowerPoint VBA教程:HasRevisionInfo属性
PowerPoint VBA教程:HasTable属性 PowerPoint VBA教程:HasText属性
PowerPoint VBA教程:HasTextFrame属性 PowerPoint VBA教程:HasTitle属性
PowerPoint VBA教程:HasTitleMaster属性 PowerPoint VBA教程:Header属性
PowerPoint VBA教程:HeadersFooters属性 PowerPoint VBA教程:Height属性
PowerPoint VBA教程:Hidden属性 PowerPoint VBA教程:HideWhileNotPlaying属性
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号