會傳回 Sequences 物件,代表藉由按一下指定之圖案所觸發的動畫。
語法
expression。 InteractiveSequences
詞 一個代表 TimeLine 物件的變數。
傳回值
Sequences
註解
InteractiveSequences 屬性的預設值為空的 Sequences 集合。
範例
下列範例會將互動式順序新增至第一張投影片,並且設定新動畫順序的文字效果屬性。
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
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。