PowerPoint) (Sequence.AddEffect 方法。

傳回 Effect 物件，代表新的動畫效果加入至連續動畫效果。

語法

expression。 AddEffect( _Shape_, _effectId_, _Level_, _trigger_, _Index_ )

詞 一個代表 序列 物件的變數。

參數

名稱	必要/選用	資料類型	描述
圖形	必要	Shape	其中要加入動畫效果的圖案。
效果Id（效應）	必要	MsoAnimEffect	要套用的動畫效果。
Level	選用	MsoAnimateByLevel	圖表、 圖表或層級套用的動畫效果的文字。 預設值為 msoAnimationLevelNone 。
trigger	選用	MsoAnimTriggerType	觸發的動畫效果的動作。 預設值為 msoAnimTriggerOnPageClick 。
Index	選用	Long	將在動畫效果集合中放置效果的位置。 預設值為 -1 (加入結尾)。

傳回值

Effect

範例

下列範例將彈跳動畫加入至第一張投影片上的第一個圖案範圍。 這個範例假設在第一張投影片上選取了包含一個或多個圖案的圖案範圍。

Sub AddBouncingAnimation()

    Dim sldActive As Slide
    Dim shpSelected As Shape

    Set sldActive = ActiveWindow.Selection.SlideRange(1)
    Set shpSelected = ActiveWindow.Selection.ShapeRange(1)

    ' Add a bouncing animation.
    sldActive.TimeLine.MainSequence.AddEffect _
        Shape:=shpSelected, effectId:=msoAnimEffectBounce

End Sub

另請參閱

Sequence 物件

支援和意見反應

有關於 Office VBA 或這份文件的問題或意見反應嗎？ 如需取得支援服務並提供意見反應的相關指導，請參閱 Office VBA 支援與意見反應。