Objeto ScaleEffect (PowerPoint)

Representa un efecto de escala para un objeto AnimationBehavior.

Ejemplo

Utilice la propiedad ScaleEffect del objeto AnimationBehavior para devolver un objeto ScaleEffect. En el siguiente ejemplo hace referencia al efecto de escala de un comportamiento de animación.

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

Utilice las propiedades ByX ,ByY ,FromX ,FromY ,ToX yToY del objeto ScaleEffect para manipular la escala de un objeto. En este ejemplo se aplica una escala a la primera forma de la primera diapositiva a partir de cero incrementando el tamaño hasta que alcanza el 100 por ciento de su tamaño original. En este ejemplo se supone que hay una forma de la primera diapositiva.

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

Vea también

Referencia del modelo de objetos de PowerPoint

Soporte técnico y comentarios

¿Tiene preguntas o comentarios sobre VBA para Office o esta documentación? Vea Soporte técnico y comentarios sobre VBA para Office para obtener ayuda sobre las formas en las que puede recibir soporte técnico y enviar comentarios.