ScaleEffect-Objekt (PowerPoint)

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

Beispiel

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

ActivePresentation.Slides(1).TimeLine.MainSequence.Item.Behaviors(1).ScaleEffect

Verwenden Sie die ByX ,ByY ,FromX ,FromY ,ToX undToY -Eigenschaften des ScaleEffect -Objekts, um die Skalierung eines Objekts bearbeiten. In diesem Beispiel wird die erste Form auf der ersten Folie, beginnend bei Null Bedarf vergrößert bis 100 Prozent seiner ursprünglichen Größe skaliert. In diesem Beispiel wird davon ausgegangen, dass auf der ersten Folie eine Form vorhanden ist.

Sub ChangeScale()

    Dim shpFirst As Shape
    Dim effNew As Effect
    Dim aniScale As AnimationBehavior

    Set shpFirst = ActivePresentation.Slides(1).Shapes(1)
    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpFirst, effectId:=msoAnimEffectCustom)

    Set aniScale = effNew.Behaviors.Add(msoAnimTypeScale)
    With aniScale.ScaleEffect
        'Starting size
        .FromX = 0
        .FromY = 0

        'Size after scale effect
        .ToX = 100
        .ToY = 100
    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.