Objeto ScaleEffect (PowerPoint)ScaleEffect object (PowerPoint)

Representa um efeito de dimensionamento para um objeto AnimationBehavior.Represents a scaling effect for an AnimationBehavior object.

ExemploExample

Use a propriedade ScaleEffectdo objeto AnimationBehavior para retornar um objeto ScaleEffect .Use the ScaleEffectproperty of the AnimationBehavior object to return a ScaleEffect object. O exemplo a seguir se refere ao efeito de dimensionamento para um dado comportamento de animação.The following example refers to the scale effect for a given animation behavior.

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

Use as propriedades ByX, ByY, FromX, Fromy, toxe Toydo objeto ScaleEffect para manipular a escala de um objeto.Use the ByX, ByY, FromX, FromY, ToX, and ToYproperties of the ScaleEffect object to manipulate an object's scale. Este exemplo dimensiona a primeira forma do primeiro slide começando em zero, aumentando em tamanho até alcançar 100% de seu tamanho original.This example scales the first shape on the first slide starting at zero increasing in size until it reaches 100 percent of its original size. Este exemplo pressupõe que haja uma forma do primeiro slide.This example assumes that there is a shape on the first slide.

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

Confira tambémSee also

Referência de modelos de objeto do PowerPointPowerPoint Object Model Reference

Suporte e comentáriosSupport and feedback

Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação?Have questions or feedback about Office VBA or this documentation? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.Please see Office VBA support and feedback for guidance about the ways you can receive support and provide feedback.