Freigeben über

PropertyEffect-Objekt (PowerPoint)

  • Artikel

Stellt einen Eigenschaftseffekt für ein AnimationBehavior -Objekt dar.

Beispiel

Verwenden Sie die PropertyEffect -Eigenschaft des AnimationBehavior -Objekts, um ein PropertyEffect -Objekt zurückzugeben. Das folgende Beispiel bezieht sich auf den Eigenschaftseffekt für ein angegebenes Animationsverhalten.

ActivePresentation.Slides(1).TimeLine.MainSequence.Item(1) _
   .Behaviors(1).PropertyEffect

Verwenden Sie die Points -Eigenschaft, um die Animationspunkte eines bestimmten Animationsverhaltens zugreifen. Wenn Sie nur zwei Zustände eines Animationsverhaltens ändern möchten, verwenden Sie die Eigenschaften Fromund To. In diesem Beispiel wird eine neue Form hinzugefügt der und der Eigenschaftseffekt die Füllfarbe von Blau in Rot animiert.

Sub AddShapeSetAnimFill()

    Dim effBlinds As Effect
    Dim shpRectangle As Shape
    Dim animProperty As AnimationBehavior

    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

    Set effBlinds = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpRectangle, effectId:=msoAnimEffectBlinds)

    effBlinds.Timing.Duration = 3
    Set animProperty = effBlinds.Behaviors.Add(msoAnimTypeProperty)

    With animProperty.PropertyEffect
        .Property = msoAnimColor
        .From = RGB(Red:=0, Green:=0, Blue:=255)
        .To = RGB(Red:=255, Green:=0, Blue:=0)
    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.