通过

ColorEffect 对象 (PowerPoint)

  • 项目

代表动画动作的颜色效果。

示例

使用 AnimationBehavior 对象的ColorEffect属性返回一个 ColorEffect 对象。 可以使用 ColorEffect 对象的 From和 To属性更改颜色效果，如下所示。 颜色效果最初使用 To 属性设置，然后可以使用 By属性按特定数字进行更改。 下面的示例向活动演示文稿第一张幻灯片添加一个形状，并设置一种颜色效果动画动作以更改新形状的填充颜色。

Sub ChangeColorEffect()

    Dim sldFirst As Slide
    Dim shpHeart As Shape
    Dim effNew As Effect
    Dim bhvEffect As AnimationBehavior

    Set sldFirst = ActivePresentation.Slides(1)

    Set shpHeart = sldFirst.Shapes.AddShape(Type:=msoShapeHeart, _
        Left:=100, Top:=100, Width:=100, Height:=100)

    Set effNew = sldFirst.TimeLine.MainSequence.AddEffect _
        (Shape:=shpHeart, EffectID:=msoAnimEffectChangeFillColor, _
        Trigger:=msoAnimTriggerAfterPrevious)

    Set bhvEffect = effNew.Behaviors.Add(Type:=msoAnimTypeColor)

    With bhvEffect.ColorEffect
        .From.RGB = RGB(Red:=255, Green:=0, Blue:=0)
        .To.RGB = RGB(Red:=0, Green:=0, Blue:=255)
    End With

End Sub

另请参阅

PowerPoint 对象模型引用

支持和反馈

有关于 Office VBA 或本文档的疑问或反馈？ 请参阅 Office VBA 支持和反馈，获取有关如何接收支持和提供反馈的指南。