返回 Sequences 对象,该对象代表由单击指定形状触发的动画。
expression.InteractiveSequences
expression 必选。该表达式返回一个 TimeLine 对象。
InteractiveSequences 属性的默认值为一个空 Sequences 集合。
以下示例在第一张幻灯片中添加一个交互式序列并设置新动画序列的文本效果属性。
Sub NewInteractiveSeqence()
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