Objeto MotionEffect (PowerPoint)

Representa un efecto de movimiento para un objeto AnimationBehavior.

Ejemplo:

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

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

Utilice las propiedades ByX ,ByY ,FromX ,FromY ,ToX yToY del objeto MotionEffect para construir una ruta de movimiento. Las propiedades ToY y ToX son en porcentaje, donde ToX = 1.0 significa 100% del ancho de la diapositiva y ToY = 1.0 significa 100% del alto de la diapositiva. En el siguiente ejemplo se agrega una forma a la primera diapositiva y se crea una trayectoria.

Sub AddMotionPath()

    Dim shpNew As Shape
    Dim effNew As Effect
    Dim aniMotion As AnimationBehavior

    Set shpNew = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShape5pointStar, Left:=0, _
        Top:=0, Width:=100, Height:=100)

    Set effNew = ActivePresentation.Slides(1).TimeLine.MainSequence _
        .AddEffect(Shape:=shpNew, effectId:=msoAnimEffectCustom, _
        Trigger:=msoAnimTriggerWithPrevious)

    Set aniMotion = effNew.Behaviors.Add(msoAnimTypeMotion)

    With aniMotion.MotionEffect
        .FromX = 0
        .FromY = 0
        .ToX = .5
        .ToY = .5
    End With

End Sub

Consulte 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.