Ho risolto con qualcosa del tipo...

codice:
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