Effect-Objekt (PowerPoint)

Artikel
04/07/2023

Stellt Anzeigedauerinformationen zu einer Folienanimation dar.

Beispiel

Verwenden Sie die AddEffect-Methode , um einen Effekt hinzuzufügen. In diesem Beispiel wird der ersten Folie der aktiven Präsentation eine Form hinzugefügt und ein Effekt und ein Verhalten hinzugefügt.

Sub NewShapeAndEffect()

    Dim shpStar As Shape

    Dim sldOne As Slide

    Dim effNew As Effect



    Set sldOne = ActivePresentation.Slides(1)

    Set shpStar = sldOne.Shapes.AddShape(Type:=msoShape5pointStar, _

        Left:=150, Top:=72, Width:=400, Height:=400)

    Set effNew = sldOne.TimeLine.MainSequence.AddEffect(Shape:=shpStar, _

        EffectId:=msoAnimEffectStretchy, Trigger:=msoAnimTriggerAfterPrevious)

    With effNew

        With .Behaviors.Add(msoAnimTypeScale).ScaleEffect

            .FromX = 75

            .FromY = 75

            .ToX = 0

            .ToY = 0

        End With

        .Timing.AutoReverse = msoTrue

    End With

End Sub

Um auf ein vorhandenes Effect-Objekt zu verweisen, verwenden Sie die MainSequence(index)-Methode, wobei index die Nummer des Effect-Objekts in der Sequence-Auflistung ist. Dieses Beispiel ändert den Effekt für die erste Sequenz und gibt das Verhalten für diesen Effekt.

Sub ChangeEffect()

    With ActivePresentation.Slides(1).TimeLine _

        .MainSequence(1)

        .EffectType = msoAnimEffectSpin

        With .Behaviors(1).RotationEffect

            .From = 100

            .To = 360

            .By = 5

        End With

    End With

End Sub

Methoden

Name
Delete
MoveAfter
MoveBefore
MoveTo

Eigenschaften

Name
Application
Verhalten
Displayname
EffectInformation
EffectParameters
EffectType
Exit
Index
Paragraph
Parent
Shape
TextRangeLength
TextRangeStart
Zeitpunkt

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.

Freigeben über