Faqword - Comment exporter chaque slide d'une présentation en un fichier PDF ?

Détails: Catégorie parente: PowerPoint; Catégorie : Environnement PowerPoint; Création : 17 février 2024; Mis à jour : 17 février 2024; Affichages : 438

Solutions VBA PowerPoint

Avec une macro. La macro suivante va enregistrer dans le même dossier que le fichier PowerPoint chaque slide de la présentation, avec comme noms "Slide" suivis d'un numéro. Vous pouvez bien entendu changer ce nom.

Sub ExportPDF()
    Dim i As Integer
    Dim chemin As String
    chemin = ActivePresentation.Path & "\"

    For i = 1 To ActivePresentation.Slides.Count
        ActivePresentation.Slides(i).Copy
        With Presentations.Add(WithWindow:=msoFalse)
            .Slides.Paste
            .SaveAs chemin & "Slide" & i & ".pdf", ppSaveAsPDF
            .Close
        End With
    Next i
End Sub