Restart Property

Microsoft PowerPoint Visual Basic

constant that represents whether the animation effect restarts after the effect has started once. Read/write.

MsoAnimEffectRestart can be one of these MsoAnimEffectRestart constants.
msoAnimEffectRestartAlways
msoAnimEffectRestartNever Default.
msoAnimEffectRestartWhenOff

expression.Restart

expression    Required. An expression that returns one of the objects in the Applies To list.

Example

The following example adds a shape and an animation to it, then sets the animation's restart behavior.

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