Sequence.Clone (PowerPoint)
Creates a copy of an Effect object, and adds it to the Sequences collection at the specified index position.
Dim effClone As Effect
Set effClone = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.Clone(Effect:=)
Arguments
The following argument is required
Effect (Effect) - Effect object. The animation effect to be cloned.
Optional arguments
The following argument is optional
Index (Long) - The position at which the cloned animation effect will be added to the Sequences collection. The default value is -1 (added to the end).