Freigeben über

Sequences-Objekt (PowerPoint)

  • Artikel

Stellt eine Auflistung von Sequence -Objekten dar. Verwenden Sie ein Sequence -Objekt hinzufügen, suchen, ändern und Klonen Animationseffekte.

Beispiel

Verwenden Sie die InteractiveSequences -Eigenschaft des TimeLine -Objekts, um ein Sequences -Auflistung zurückzugeben. Verwenden Sie die Add-Methode, um eine interaktive Animationssequenz hinzuzufügen. Das folgende Beispiel zwei Formen auf der ersten Folie der aktiven Präsentation hinzugefügt und interaktiven Effekt für die Sternform festgelegt, so, dass wenn Sie die Abschrägung Form klicken, die Sternform wird animiert werden.

Sub AddNewSequence()

    Dim shp1 As Shape
    Dim shp2 As Shape
    Dim interEffect As Effect

    Set shp1 = ActivePresentation.Slides(1).Shapes.AddShape _
        (Type:=msoShape32pointStar, Left:=100, _
        Top:=100, Width:=200, Height:=200)

    Set shp2 = ActivePresentation.Slides(1).Shapes.AddShape _
        (Type:=msoShapeBevel, Left:=400, _
        Top:=200, Width:=150, Height:=100)

    With ActivePresentation.Slides(1).TimeLine.InteractiveSequences.Add(1)
        Set interEffect = .AddEffect(shp2, msoAnimEffectBlinds, _
            trigger:=msoAnimTriggerOnShapeClick)
        interEffect.Shape = shp1
    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.