PowerPoint) (ColorEffect 物件

代表動畫行為的色彩效果。

範例

使用 AnimationBehavior 物件的ColorEffect屬性可傳回 ColorEffect 物件。 您可以使用 ColorEffect 物件的 [開始]和 [結束]屬性來變更色彩效果，如下所示。 色彩效果一開始是使用 [至] 屬性設定，然後可以使用 [依據] 屬性變更特定數字。 下列範例會新增圖案到使用中簡報第一張投影片並將設定變更新圖案的填滿色彩的色彩效果動畫行為。

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 支援與意見反應。

  • Last updated on