會傳回 Sequence 物件,代表在投影片的主要動畫順序中之 Effect 物件的集合。
語法
expression。 MainSequence
詞 一個代表 TimeLine 物件的變數。
傳回值
順序
註解
MainSequence 屬性的預設值為空的 Sequence 集合。 嘗試從這個屬性傳回的值不透過新增一或多個 Effect 物件的主要動畫順序會導致執行時期錯誤。
範例
下列範例會將迴旋鏢動畫新增至作用中的簡報內新增投影片上的新圖案。
Sub NewSequence()
Dim sldNew As Slide
Dim shpnew As Shape
Set sldNew = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutBlank)
Set shpnew = sldNew.Shapes.AddShape(Type:=msoShape5pointStar, _
Left:=25, Top:=25, Width:=100, Height:=100)
With sldNew.TimeLine.MainSequence.AddEffect(Shape:=shpnew, _
EffectId:=msoAnimEffectBoomerang)
.Timing.Speed = 0.5
.Timing.Accelerate = 0.2
End With
End Sub
另請參閱
支援和意見反應
有關於 Office VBA 或這份文件的問題或意見反應嗎? 如需取得支援服務並提供意見反應的相關指導,請參閱 Office VBA 支援與意見反應。