Propriedade Timing.TriggerType (PowerPoint)
Representa o gatilho que inicia uma animação. Leitura/gravação.
Sintaxe
expression. TriggerType
Expressão Uma variável que representa um objeto Timing .
Valor de retorno
MsoAnimTriggerType
Comentários
O valor da propriedade TriggerType pode ser uma destas constantes MsoAnimTriggerType. O padrão é msoAnimTriggerOnPageClick.
msoAnimTriggerAfterPrevious |
msoAnimTriggerMixed |
msoAnimTriggerNone |
msoAnimTriggerOnPageClick |
msoAnimTriggerOnShapeClick |
msoAnimTriggerWithPrevious |
Exemplo
O exemplo a seguir adiciona uma forma a um slide, adiciona uma animação à forma e instrui a forma para iniciar a animação três segundos após o clique sobre ela.
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
.TriggerType = msoAnimTriggerWithPrevious
.TriggerDelayTime = 3
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.