propiedad RotationEffect.By (PowerPoint)

Establece o devuelve un valor Single que representa el giro de un objeto según el número especificado de grados; Por ejemplo, un valor de 180 indica que se gira el objeto 180 grados. Lectura y escritura.

Sintaxis

expresión. By

Expresión Variable que representa un objeto RotationEffect .

Comentarios

El objeto especificado gira manteniendo su centro en la misma posición de la pantalla.

Si se establecen las propiedades de la forma y a para un efecto de giro, se omite el valor de la propiedad By.

Se permiten números decimales, por ejemplo 55,5 pero no se permiten números negativos.

No confunda esta propiedad con la ByX o ByY de propiedades de los objetos ScaleEffect y MotionEffect, que sólo se usan para los efectos de ajuste y movimiento.

Ejemplo:

En este ejemplo se agrega un efecto de giro y se modifica dicho giro.

Sub AddAndChangeRotationEffect()
    Dim effBlinds As Effect
    Dim tmlnShape As TimeLine
    Dim shpShape As Shape
    Dim animBehavior As AnimationBehavior
    Dim rtnEffect As RotationEffect

    'Sets shape, timing, and effect
    Set shpShape = ActivePresentation.Slides(1).Shapes(1)
    Set tmlnShape = ActivePresentation.Slides(1).TimeLine
    Set effBlinds = tmlnShape.MainSequence.AddEffect _
        (Shape:=shpShape, effectId:=msoAnimEffectBlinds)

    'Adds animation behavior and sets rotation effect
    Set animBehavior = tmlnShape.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)
    Set rtnEffect = animBehavior.RotationEffect

    rtnEffect.By = 270
End Sub

Consulte también

RotationEffect (objeto)

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.