Propiedad Timing.TriggerDelayTime (PowerPoint)

Establece o devuelve el retraso, en segundos, desde que se habilita un desencadenador de animación. Lectura y escritura.

Sintaxis

expresión. TriggerDelayTime

Expresión Variable que representa un objeto Timing .

Valor devuelto

Simple

Ejemplo:

En el siguiente ejemplo se agrega una forma a una diapositiva, se agrega una animación a dicha forma y se establece que la animación de la forma se inicie tres segundos después de hacer clic en ella.

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
        .TriggerShape = shpRectangle
        .TriggerType = msoAnimTriggerOnShapeClick
        .TriggerDelayTime = 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.