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
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