Contrairement à Excel qui utilise ActiveSheet pour la feuille active, il n'y a pas de propriété Active Slide dans PowerPoint pour renvoyer la diapositive active.
Mais on peut la définir de la façon suivante :
Dim diapo As Slide
Set diapo = ActiveWindow.Selection.SlideRange(1)