Bonjour

je cherche à insérer un bouton qui me permet d'imprimer la slide active lorsque je suis en mode présentateur, de préférence sur un fichier enregistrer en .pptsm.

j'ai réussi à trouver le code suivant qui fonctionne si la présentation est ouverte en .pptm

pouvez-vous m'aider svp

Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
Sub macro()
 
With ActivePresentation.PrintOptions
    .RangeType = ppPrintCurrent
    .PrintColorType = ppPrintColor
End With
ActivePresentation.PrintOut
 
End Sub