Compartir a través de

Propiedad RotationEffect.From (PowerPoint)

  • Artículo

Establece o devuelve un valor Single que representa el ángulo inicial en grados, especificado con relación a la pantalla (por ejemplo, 90 grados es completamente horizontal). Lectura y escritura.

Sintaxis

expresión. From

Expresión Variable que representa un objeto RotationEffect .

Comentarios

Use esta propiedad junto con la propiedad To para pasar de un ángulo de giro a otro.

El valor predeterminado está vacío, en cuyo caso se utiliza la posición actual del objeto.

No confunda esta propiedad con la FromX o FromY 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 e inmediatamente se modifica el ángulo de giro.

Sub AddAndChangeRotationEffect()

    Dim effBlinds As Effect
    Dim tlnTiming As TimeLine
    Dim shpRectangle As Shape
    Dim animRotation As AnimationBehavior
    Dim rtnEffect As RotationEffect

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

    Set tlnTiming = ActivePresentation.Slides(1).TimeLine

    Set effBlinds = tlnTiming.MainSequence.AddEffect(Shape:=shpRectangle, _
        effectId:=msoAnimEffectBlinds)

    Set animRotation = tlnTiming.MainSequence(1).Behaviors _
        .Add(Type:=msoAnimTypeRotation)

    Set rtnEffect = animRotation.RotationEffect

    'Sets the rotation effect starting and ending positions
    rtnEffect.From = 90
    rtnEffect.To = 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.