user_mobilelogo

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

Statistiques

Aujourd'hui373
Hier1034
Cette semaine9631
Ce mois18602
Total depuis 200418221142

3
visiteurs actuellement en ligne

14 avril 2024