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'hui1713
Hier1762
Cette semaine5142
Ce mois24435
Total depuis 200418226975

7
visiteurs actuellement en ligne

17 avril 2024