Nota
O acceso a esta páxina require autorización. Pode tentar iniciar sesión ou modificar os directorios.
O acceso a esta páxina require autorización. Pode tentar modificar os directorios.
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
Observaciones
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
Vea 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.