Compartir a través de

Propiedad MotionEffect.ByX (PowerPoint)

  • Artículo

Establece o devuelve un valor Single que representa la escala o mover un objeto horizontalmente según un porcentaje especificado del ancho de pantalla, dependiendo de si utiliza junto con un objeto ScaleEffect o MotionEffect, respectivamente. Por ejemplo, un valor de 50 para un efecto de movimiento significa desplazar el objeto la mitad del ancho de pantalla a la derecha. Lectura y escritura.

Sintaxis

expresión. ByX

Expresión Variable que representa un objeto MotionEffect .

Valor devuelto

Simple

Comentarios

Los números negativos desplazan el objeto horizontalmente a la izquierda. Se permiten números de punto flotante (por ejemplo, 55.5).

Para cambiar la escala o desplazar un objeto verticalmente, utilice la propiedad ByY.

Si se establecen las propiedades ByX y ByY, el objeto se cambia la escala o se mueve horizontal y verticalmente.

No confunda esta propiedad con la propiedad By de los objetos ColorEffect, RotationEffect o PropertyEffect, que se utiliza para establecer colores, giros u otras propiedades de un comportamiento de animación, respectivamente.

Ejemplo:

En el siguiente ejemplo se agrega una ruta de acceso de animación; a continuación, se establece el movimiento horizontal y vertical de la forma.

Sub AddMotionPath()

    Dim effCustom As Effect
    Dim animBehavior As AnimationBehavior
    Dim shpRectangle As Shape

    'Adds rectangle and sets effect and animation
    Set shpRectangle = ActivePresentation.Slides(1).Shapes _
        .AddShape(Type:=msoShapeRectangle, Left:=300, _
        Top:=300, Width:=300, Height:=150)

    Set effCustom = ActivePresentation.Slides(1).TimeLine _
        .MainSequence.AddEffect(Shape:=shpRectangle, _
         effectId:=msoAnimEffectCustom)

    Set animBehavior = effCustom.Behaviors.Add(msoAnimTypeMotion)

    'Specifies animation motion
    With animBehavior.MotionEffect
        .ByX = 50
        .ByY = 50
    End With

End Sub

Consulte también

Objeto MotionEffect

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.