Discussion :

[Metal Tom]

Bonjour,

Je cherche à faire un programme qui log ce qui se passe sur un diaporama Powerpoint. Par exemple enregistrer à quelle date et heure est affichée telle diapo, éventuellement récupérer le titre etc. Y a-t-il une API pour ça ?

Merci,

[Invité]

Bonjour

Je ne pense pas qu'il existe quelque chose la-dessus.

Pour la récupération des infos, cela est possible par automation.

Pour les heures, et dates d'affichage, à mon avis il faut le programmer dans le diaporama avec les évènements pour écrire dans un fichier ces différentes informations et les récupérer par la suite.

Philippe

[Metal Tom]

Arf c'est con. L'idée c'était d'éviter de bourrer tous les fichiers powerpoint avec des macros…

Je vais chercher un peu ailleurs si je trouve quelque chose. Je ne perds pas espoir. merci pour ta réponse en tout cas.

[Metal Tom]

C'est bon j'ai trouvé. J'ai développé un add-in sous visual studio. Un ch'tit peu de Visual Basic et c'est torché.

Code :

Sélectionner tout - Visualiser dans une fenêtre à part

1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
Imports Microsoft.Office.Interop.PowerPoint
 
Public Class ThisAddIn
    Private WithEvents oApp As PowerPoint.Application
 
    Private Sub ThisAddIn_Startup(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Startup
        oApp = New PowerPoint.Application
        ' handlers sur les événements
        AddHandler oApp.SlideShowBegin, AddressOf oApp_SlideShowBegin
        AddHandler oApp.SlideShowEnd, AddressOf oApp_SlideShowEnd
        AddHandler oApp.SlideShowNextSlide, AddressOf oApp_SlideShowNextSlide
 
        ' autres initialisations
    End Sub
 
    Private Sub ThisAddIn_Shutdown(ByVal sender As Object, ByVal e As System.EventArgs) Handles Me.Shutdown
        ' fermeture de l'add-in
    End Sub
 
    Private Sub oApp_SlideShowBegin(ByVal SSW As SlideShowWindow)
        ' au lancement du diaporama
    End Sub
 
    Private Sub oApp_SlideShowEnd(ByVal SSW As SlideShowWindow)
        ' à l'arrêt du diaporama
    End Sub
 
    Private Sub oApp_SlideShowNextSlide(ByVal SSW As SlideShowWindow)
        ' au changement de slide
    End Sub
End Class

[Invité]

je n'avais pas pensé à cela.