Supprimer toutes les notes du conférencier en une seule opération

A partir d’une présentation contenant plusieurs dizaines de diapositives, vous devez construire votre propre diaporama en y supprimant tous les éléments parasites : illustrations, films, notes, etc. Au lieu d’effacer, une à une, toutes les notes rédigées par un autre conférencier sur chacun des visuels, écrivez un programme VBA (Visual Basic Edition Applications). Pour cela, ouvrez votre présentation. Appuyez sur + pour afficher Visual Basic Editor. Puis choisissez la commande Module du menu Insertion.Saisissez alors le listing ci-après. Enregistrez le programme en appuyant sur + et fermez Visual Basic Editor. Dans PowerPoint, déroulez sur Outils et choisissez Macro et enfin Macros. Sélectionnez SuppressionNotesPresentateur dans la fenêtre qui s’affiche et validez par un clic sur [exécuter]. Les notes ont disparu. Vous pouvez le vérifier en sélectionnant une vue en mode Trieuse de diapositives et en optant pour la commande Affichage/Commentaires du présentateur. Vous pouvez également le constater en basculant en mode Page de commentaires en cliquant sur l’icône adéquate située dans la partie inférieure gauche de la fenêtre.Listing :
Sub SuppressionNotesPresentateur()
On Error Resume Next
Dim Diapo As Slide
For Each Diapo In ActivePresentation.Slides
Diapo.NotesPage.Shapes.Placeholders(2).Delete
Next Diapo
End Sub