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
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
