次の方法で共有


Timing.AutoReverse プロパティ (PowerPoint)

効果を再生した後で逆方向に再生し、その時間を 2 倍にするかどうかを指定します。 値の取得と設定が可能です。

構文

AutoReverse

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

戻り値

MsoTriState

注釈

AutoReverse プロパティの値には、以下の msotristate クラス の定数のいずれかを指定できます。

定数 説明
msoFalse 既定値です。 アニメーション効果を標準の順序で実行した後に、逆の順序では実行しません。
msoTrue アニメーション効果を標準の順序で実行した後に、逆の順序で実行します。

次の使用例は、図形を追加し、その図形にアニメーション効果を追加します。次に、アニメーションを標準の順序で実行した後に、逆の順序で実行します。

Sub SetEffectTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds rectangle and applies diamond effect
    Set shpRectangle = ActivePresentation.Slides(1).Shapes.AddShape _
        (Type:=msoShapeRectangle, Left:=100, _
        Top:=100, Width:=50, Height:=50)

    Set effDiamond = ActivePresentation.Slides(1).TimeLine _
        .MainSequence.AddEffect(Shape:=shpRectangle, _
         effectId:=msoAnimEffectPathDiamond)

    'Sets the duration of and reverses the effect
    With effDiamond.Timing
        .Duration = 5 ' Length of effect.
        .AutoReverse = msoTrue
    End With

End Sub

関連項目

オブジェクトのタイミング

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

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