PowerPoint VBA教程:OneColorGradient方法

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

expression.OneColorGradient(Style, Variant, Degree)

expression  必选。该表达式返回一个 FillFormat对象。

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

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

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

Degree  必选。Single 类型。过渡的度数。可为 0.0(暗)到 1.0(亮)之间的值。

VBA示例

本示例在myDocument 中添加一个具有单色过渡填充效果的矩形。


Set myDocument = ActivePresentation.Slides(1)
With myDocument.Shapes _
        .AddShape(msoShapeRectangle, 90, 90, 90, 80).Fill
    .ForeColor.RGB = RGB(0, 128, 128)
    .OneColorGradient msoGradientHorizontal, 1, 1
End With

上页:PowerPoint VBA教程:OfflineConflict Method 下页:PowerPoint VBA教程:Open方法

PowerPoint VBA教程:OneColorGradient方法

PowerPoint VBA教程:Open方法 PowerPoint VBA教程:Paragraphs方法
PowerPoint VBA教程:Paste方法 PowerPoint VBA教程:PasteSpecial方法
PowerPoint VBA教程:Patterned方法 PowerPoint VBA教程:PickUp方法
PowerPoint VBA教程:Picture方法 PowerPoint VBA教程:Play方法
PowerPoint VBA教程:PointsToScreenPixelsX方法 PowerPoint VBA教程:PointsToScreenPixelsY方法
PowerPoint VBA教程:PresetDrop方法 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方法
版权所有 © 中山市飞娥软件工作室 证书:粤ICP备09170368号