Propiedad Timing.Accelerate (PowerPoint)

Devuelve o establece el porcentaje de duración en el que debe tener lugar una aceleración de intervalo de diapositivas. Lectura y escritura.

Sintaxis

expresión. Accelerate

Expresión Variable que representa un objeto Timing .

Valor devuelto

Simple

Comentarios

Por ejemplo, un valor de 0,9 indica que la aceleración debe iniciarse con una velocidad inferior a la predeterminada durante el 90% del tiempo total de la animación, mientras que el último 10% de la animación debe realizarse a la velocidad predeterminada.

Para ralentizar la animación al final, utilice la propiedad Decelerate.

Ejemplo:

En este ejemplo se agrega una forma y una animación, iniciándose a menor velocidad y alcanzando la velocidad predeterminada después de que haya tenido lugar el 30% de la secuencia de animación.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds rectangle and specifies effect to use for rectangle
    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)

    'Specifies the acceleration for the effect

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