Propriedade TimeLine.InteractiveSequences (PowerPoint)
Retorna um objeto Sequences que representa animações que são acionadas por um clique em uma forma especificada.
Sintaxe
expression. InteractiveSequences
Expressão Uma variável que representa um objeto TimeLine .
Valor de retorno
Sequences
Comentários
O valor padrão da propriedade InteractiveSequences é uma coleção Sequences vazia.
Exemplo
O exemplo a seguir adiciona uma sequência interativa ao primeiro slide e define as propriedades de efeitos de texto da nova sequência de animação.
Sub NewInteractiveSequence()
Dim seqInteractive As Sequence
Dim shpText As Shape
Dim effText As Effect
Set seqInteractive = ActivePresentation.Slides(1).TimeLine _
.InteractiveSequences.Add(1)
Set shpText = ActivePresentation.Slides(1).Shapes(1)
Set effText = ActivePresentation.Slides(1).TimeLine _
.MainSequence.AddEffect(Shape:=shpText, _
EffectId:=msoAnimEffectChangeFont, _
Trigger:=msoAnimTriggerOnPageClick)
effText.EffectParameters.FontName = "Broadway"
seqInteractive.ConvertToTextUnitEffect Effect:=effText, _
UnitEffect:=msoAnimTextUnitEffectByWord
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.