Bonjour au Forum,
J'ai un quiz PPT, je voudrais qu'a la fermeture du fichier les boutons qui ont été coché soient tous décochés.
J'ai consigné toute ces instructions dans une Macro mais je n'arrive pas à l'exécuter automatiquement avec la fermeture du fichier.
J'ai essayé ceci (pris sur internet):
Public WithEvents App As Application
'
' L'événement traité sur la sortie de powerpoint
'
Private Sub App_PresentationClose(ByVal Pres As Presentation)
ActivePresentation.Slides(2).Shapes(4).TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
ActivePresentation.Slides(2).Shapes(5).TextFrame.TextRange.Font.Color.RGB = RGB(0, 0, 0)
With Slide131
.CheckBox1 = False
.CheckBox2 = False
.CheckBox3 = False
.CheckBox4 = False
.CheckBox5 = False
.CheckBox6 = False
End With
End Sub
Mais cela ne fonctionne pas, je ne comprend pas pourquoi.
Quelqu'un pourrait-il m'aider svp ?
Merci d'avance.