Bonjour,
Je souhaiterais pouvoir enregistrer en pdf une sélection de diapositives (regroupées dans des sections différentes).
Par exemple, généré un pdf pour la section A et un autre pour la section B.
J'ai indiquée déjà le code ci-dessous
Sub sav_pdf_auto()
Dim r1 As PrintRange, r2 As PrintRange, r3 As PrintRange
'Diapo1
'Set r1 = ActivePresentation.PrintOptions.Ranges.Add(1, 1)
'Diapo1 et Diapo2
'Set r2 = ActivePresentation.PrintOptions.Ranges.Add(1, 2)
'definition presentation complete a sauvegarder en PDF
Set r3 = ActivePresentation.PrintOptions.Ranges.Add(1, ActivePresentation.Slides.Count)
ActivePresentation.ExportAsFixedFormat Path:=ActivePresentation.Path & "\" & Replace(ActivePresentation.Name, "pptm", "PDF"), _
FixedFormatType:=ppFixedFormatTypePDF, _
PrintRange:=r3, RangeType:=ppPrintSlideRange
End Sub
Est-il possible d'ajouter les sections ou une plage de diapositvies ?
Merci d'avance pour votre aide