Bonjour,
Je rencontre une petite difficulté à laquelle je n'ai pas trouvé de solution. Afin d'alléger mes présentations et de les faire passer à d'autres personnes (collègues, clients), je cherche à supprimer de manière automatique les slides masquées pour créer ensuite une version supplémentaire de mon fichier qui sera ainsi allégé et sans informations inutiles. Jusqu'à présent, la sauvegarde au format PDF me permettait de contourner ce problème, mais certaines personnes me demandent une version powerpoint.
J'ai donc créé une boucle for afin d'identifier les slides masquées pour ensuite les supprimer l'une après l'autre, seulement, je suis confronté à un problème : en supprimant une slide, le système passe à la suivante dans la présentation ; effectivement, la slide n'étant plus, l'index actuel passe à la suivante qui est donc occultée du traitement...
L'idéal serait de traiter ce problème à l'envers j'imagine en remontant la collection de slides plutôt qu'en la descendant, la solution est sans doute toute simple, mais là je bloque...
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8 For Each diapo In ActivePresentation.Slides If diapo.SlideShowTransition.Hidden = True Then diapo.Delete End If Next
Si vous avez une idée, je suis preneur
Merci d'avance pour votre aide
Partager