[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.

[Dexter1983]

Ho risolto con qualcosa del tipo...

sldnew as Slide
shp1 as shape
'Aggiungo effetto 1
     With sldNew.TimeLine
        .MainSequence.AddEffect shp1, msoAnimEffectEaseIn, , msoAnimTriggerWithPrevious
        .MainSequence(1).Exit  'Imposto Effetto 1 in uscita nell'ultima slide aggiunta
    End With