ColorEffect-Objekt (PowerPoint)

Stellt einen Farbeffekt eines Animationsverhaltens dar.

Beispiel

Verwenden Sie die ColorEffect -Eigenschaft des AnimationBehavior -Objekts, um ein ColorEffect -Objekt zurückzugeben. Farbeffekte können mithilfe der Eigenschaften Fromund Todes ColorEffect-Objekts geändert werden, wie unten gezeigt. Farbeffekte werden zunächst mit der To-Eigenschaft festgelegt und können dann mithilfe der By-Eigenschaftdurch eine bestimmte Zahl geändert werden. Im folgenden Beispiel wird der ersten Folie der aktiven Präsentation eine Form hinzugefügt und ein Farbeffekt-Animationsverhalten zum Ändern der Füllfarbe der neuen Form festgelegt.

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

Siehe auch

PowerPoint-Objektmodellreferenz

Support und Feedback

Haben Sie Fragen oder Feedback zu Office VBA oder zu dieser Dokumentation? Unter Office VBA-Support und Feedback finden Sie Hilfestellung zu den Möglichkeiten, wie Sie Support erhalten und Feedback abgeben können.