Sequence.AddEffect メソッド (PowerPoint)

アニメーション 効果 のシーケンスに追加された新しいアニメーション効果を表す Effect オブジェクトを返します。

構文

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

式Sequence オブジェクトを表す変数。

パラメーター

名前	必須 / オプション	データ型	説明
図形	必須	Shape	アニメーション効果を追加する図形を指定します。
effectId	必須	MsoAnimEffect	適用するアニメーション効果を指定します。
Level	省略可能	MsoAnimateByLevel	アニメーション効果を適用するグラフ、図表、またはテキストのレベルを指定します。 既定値は msoAnimationLevelNone です。
trigger	省略可能	MsoAnimTriggerType	アニメーション効果を起動する操作を指定します。 既定値は msoAnimTriggerOnPageClick です。
インデックス	省略可能	長整数型 (Long)	アニメーション効果のコレクションで効果が配置される位置を指定します。 既定値は -1 (最後に追加) です。

戻り値

効果

例

次の使用例は、スライド 1 の図形 1 の選択範囲にバウンド アニメーションを追加します。 この使用例では、スライド 1 に 1 つまたは複数の図形が選択された図形範囲があると仮定しています。

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

関連項目

シーケンス オブジェクト

サポートとフィードバック

Office VBA またはこの説明書に関するご質問やフィードバックがありますか？ サポートの受け方およびフィードバックをお寄せいただく方法のガイダンスについては、Office VBA のサポートおよびフィードバックを参照してください。