Propiedad Timing.Decelerate (PowerPoint)

Establece o devuelve el porcentaje de la duración durante la que debe producirse una desaceleración de tiempo. Lectura y escritura.

Sintaxis

expresión. Decelerate

expresión Variable que representa un objeto Timing .

Valor devuelto

Simple

Observaciones

Por ejemplo, el valor 0,9 indica que la deceleración debe iniciarse a la velocidad predeterminada y, a continuación, reducirse después del primer 10% de la animación.

Ejemplo

En este ejemplo se agrega una forma y una animación, que se inician a la velocidad predeterminada y van más lentas después de que haya transcurrido el 70% de la secuencia de animación.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds rectangle 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)

    'Slows the effect after seventy percent of the animation has finished

    With effDiamond.Timing
        .Decelerate = 0.3
    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.