Propiedad Timing.RewindAtEnd (PowerPoint)

Representa si un objeto vuelve a su posición inicial al finalizar una animación. Lectura y escritura.

Sintaxis

expresión. RewindAtEnd

Expresión Variable que representa un objeto Timing .

Valor devuelto

MsoTriState

Comentarios

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

Constante	Descripción
msoFalse	Valor predeterminado. El objeto no vuelve a su posición inicial después de finalizar la animación.
msoTrue	El objeto vuelve a su posición inicial después de finalizar la animación.

Ejemplo:

El siguiente ejemplo crea una forma y le agrega una animación, a continuación, indica a la forma que vuelva a su posición inicial una vez finalizada la animación.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds shape and sets animation 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 duration of animation and returns shape to its original position

    With effDiamond.Timing
        .Duration = 3
        .RewindAtEnd = msoTrue
    End With

End Sub

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