Propriedade Timing.SmoothEnd (PowerPoint)
Determina se uma animação deve ser desacelerada ao terminar. Leitura/gravação.
Sintaxe
expression. SmoothEnd
Expressão Uma variável que representa um objeto Timing .
Valor de retorno
MsoTriState
Comentários
O valor da propriedade SmoothEnd pode ser uma destas constantes MsoTriState.
Constante | Descrição |
---|---|
msoFalse | Padrão. Uma animação não é desacelerada ao terminar. |
msoTrue | Uma animação é desacelerada ao terminar. |
Exemplo
O exemplo a seguir adiciona uma forma a um slide, anima a forma e instrui a forma para desacelerar quando terminar.
Sub AddShapeSetTiming()
Dim effDiamond As Effect
Dim shpRectangle As Shape
'Adds shape and sets animation effect
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)
'Sets duration of effect and slows animation at end
With effDiamond.Timing
.Duration = 5
.SmoothEnd = msoTrue
End With
End Sub
Confira também
Suporte e comentários
Tem dúvidas ou quer enviar comentários sobre o VBA para Office ou sobre esta documentação? Confira Suporte e comentários sobre o VBA para Office a fim de obter orientação sobre as maneiras pelas quais você pode receber suporte e fornecer comentários.