Sequence.Clone (PowerPoint)

Cria uma cópia de um objeto Effect e adiciona-a à coleção Sequences na posição de índice especificada.

Clone (Effect, Index)

Dim effClone As Effect
Set effClone = ActiveWindow.Selection.SlideRange(1).TimeLine.MainSequence.Clone(Effect:=)

Arguments

O seguinte argumento é necessário

Effect (Effect) - Objeto Effect. O efeito de animação a ser clonada.

Optional arguments

The following argument is optional

Index (Long) - A posição na qual o efeito de animação clonado será adicionado à coleção sequences . O valor padrão é -1 (adicionado ao final).