Timing.Restart プロパティ (PowerPoint)

アニメーション効果が 1 回開始された後に、再開始するかどうかを表します。 値の取得と設定が可能です。

構文

式。 Restart

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

戻り値

MsoAnimEffectRestart

注釈

再起動 する] プロパティの値には、これらの MsoAnimEffectRestart 定数のいずれかを指定できます。 MsoAnimEffectRestartNever は、既定では。

msoAnimEffectRestartAlways
msoAnimEffectRestartNever
msoAnimEffectRestartWhenOff

例

次の使用例は、図形を追加し、その図形にアニメーションを追加します。次に、アニメーションの再開始動作を設定します。

Sub AddShapeSetTiming()

    Dim effDiamond As Effect
    Dim shpRectangle As Shape

    'Adds shape and sets animation

    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)

    With effDiamond.Timing
        .Duration = 3
        .RepeatDuration = 5
        .RepeatCount = 3
        .Restart = msoAnimEffectRestartAlways
    End With

End Sub

関連項目

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

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

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