Contrairement à Excel qui utilise lActiveSheet 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)
 

Statistiques

Aujourd'hui1972
Hier2596
Cette semaine4568
Ce mois38898
Total depuis 200410452311

27
visiteurs actuellement en ligne