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
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.
Comentarios
https://aka.ms/ContentUserFeedback.
Próximamente: A lo largo de 2024 iremos eliminando gradualmente GitHub Issues como mecanismo de comentarios sobre el contenido y lo sustituiremos por un nuevo sistema de comentarios. Para más información, vea:Enviar y ver comentarios de