[VBA/POWERPOINT] Gestire gli effetti di transizione

[Dexter1983]

Ciao a tutti.

In PowerPoint qualcuno sa dirmi come si aggiungono gli effetti in uscita di un oggetto Shape?

Per gli effetti in entrata faccio una cosa simile:

With ActiveWindow.Selection.SlideRange.Shapes.AddPicture(Jpg(1), _
    msoFalse, msoTrue, 75, 95, 569, 350)
    
    With .AnimationSettings
        '.TextLevelEffect = ppAnimateByAllLevels
        .EntryEffect = ppEffectFlyFromRight
        '.Animate = True
        .AdvanceMode = ppAdvanceOnTime
        .AdvanceTime = 0
    End With

End With

non riesco ad aggiungere gli effetti in uscita e a gestire l'ordine degli effetti, qualcuno sa come fare?
Grazie.