Bonjour.
J'ai chercher sur le web, mais sans succès, comment réaliser ThisPresentation, équivalent de ThisWorkBook pour Excel, c'est-à-dire une instance de la présentation du contenant le code du projet VBA en cours d'exécution.
Je propose une solution avec cette fonctionCe code fonctionne même si plusieurs présentations sont ouvertes sous le même nom, ce qui est étonnant, mais possible.
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3
4
5
6
7
8
9
10 Public Function fThisPresentation() As PowerPoint.Presentation Dim s As String s = Application.VBE.ActiveVBProject.FileName For Each fThisPresentation In Application.Presentations If fThisPresentation.FullName = s Then Exit For Next fThisPresentation End Function
Ouvrir plusieurs présentations et tester simplement avecCordialement,
Code : Sélectionner tout - Visualiser dans une fenêtre à part
1
2
3 Sub test() Debug.Print fThisPresentation.FullName End Sub
PGZ
Partager