Timing.RepeatDuration プロパティ (PowerPoint)

繰り返し実行するアニメーションの実行時間を秒単位で設定します。 値の取得と設定が可能です。

構文

式。 RepeatDuration

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

戻り値

1 行

注釈

タイム シーケンスの最後または RepeatDuration プロパティの値でアニメーションが停止、短いです。

例

この例は図形にアニメーションを追加し、アニメーションを 10 回繰り返されます。 ただし、5 秒後アニメーションが途中で切れて場合でも、20 秒のタイムラインのアニメーション ( Duration プロパティが指定されていない場合、アニメーション既定値は 2 秒間)。

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds new shape and sets animation 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 repeat duration and number of times to repeat animation
    With effDiamond.Timing
        .RepeatDuration = 5
        .RepeatCount = 10
    End With

End Sub

関連項目

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

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

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