Share via


Propiedad Timing.SmoothStart (PowerPoint)

Determina si una animación debe acelerarse cuando se inicia. Lectura y escritura.

Sintaxis

expresión. SmoothStart

Expresión Variable que representa un objeto Timing .

Valor devuelto

MsoTriState

Comentarios

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

Constante Descripción
msoFalse Valor predeterminado. La animación no se acelera cuando comienza.
msoTrue La animación se acelera cuando comienza.

Ejemplo:

En el siguiente ejemplo se agrega una forma a una diapositiva, se anima dicha forma y se establece que se acelere al iniciar.

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    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)

    With effDiamond.Timing
        .Duration = 5
        .SmoothStart = 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.