Propiedad Timing.AutoReverse (PowerPoint)

Determina si un efecto debe reproducirse hacia delante y, a continuación, en sentido inverso, duplicando así su duración. Lectura y escritura.

Sintaxis

expresión. AutoReverse

expresión Variable que representa un objeto Timing .

Valor devuelto

MsoTriState

Observaciones

El valor de la propiedad AutoReverse puede ser una de estas constantes MsoTriState.

Ejemplo

En el ejemplo siguiente, se agrega una forma y un efecto de animación en ella; a continuación, se establece la animación en orden inverso una vez finalizado el movimiento hacia delante.

Sub SetEffectTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

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

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

    'Sets the duration of and reverses the effect
    With effDiamond.Timing
        .Duration = 5 ' Length of effect.
        .AutoReverse = msoTrue
    End With

End Sub

Vea también

Objeto de control de tiempo

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.