Enregistrer ppt en jpg à partir d'une macro excel

[sonia123]

Bonjour à tous!

A partir d'une macro Excel, je souhaite enregistrer toute une présentation powerpoint en format jpeg.
Je tourne un peu en rond, alors si quelqu'un a une idée, ça serait sympa!

Merci!

 

[Guest]

Re : Enregistrer ppt en jpg à partir d'une macro excel

Bonjour et bienvenue sur le forum,

Même s'il s'agit plus d'une question PowerPoint que d'excel, voici qui exportera en JPG toutes les diapositives d'un fichier powerpoint dans le dossier du classeur de la macro.

Dans l'éditeur VBE excel (éditeur de macro) dans Menu/outils/références cochez la référence à Microsoft PowerPoint

Mettre le chemin complet du diaporama dans la constante 'Chemin' de la macro

Sub ExporterImagesDiaposPpt()
    Const Chemin = "NomCompletDuFichierPPT"
    Dim oApp As New PowerPoint.Application
    Dim oPpt As Presentation
    Dim oDiap As Slide
    Dim NomImage As String
    oApp.Visible = msoCTrue
    Set oPpt = oApp.Presentations.Open(Chemin)
    For Each oDiap In oPpt.Slides
        NomImage = oDiap.Name & ".jpg"
        oDiap.Export ThisWorkbook.Path & "\" & NomImage, "jpg"
    Next
    oPpt.Saved = msoCTrue
    oPpt.Close
    Set oPpt = Nothing
    oApp.Quit
    Set oApp = Nothing
End Sub

A+

 

[sonia123]

Re : Enregistrer ppt en jpg à partir d'une macro excel

Ca marche nickel!
Merci!