Advertisement
Not a member of Pastebin yet?
Sign Up,
it unlocks many cool features!
- Sub ExportSlidesToIndividualPDF()
- Dim oPPT As Presentation, oSlide As Slide
- Dim sPath As String, sExt As String
- Set oPPT = ActivePresentation
- sPath = oPPT.FullName & "_Slide_"
- sExt = ".pdf"
- For Each oSlide In oPPT.Slides
- i = oSlide.SlideNumber
- oSlide.Select
- oPPT.ExportAsFixedFormat _
- Path:=sPath & i & sExt, _
- FixedFormatType:=ppFixedFormatTypePDF, _
- RangeType:=ppPrintSelection
- Next
- Set oPPT = Nothing
- End Sub
- Sub ExportSlidesToIndividualPDF()
- Dim oPPT As Presentation, oSlide As Slide
- Dim sPath As String, sExt As String
- Set oPPT = ActivePresentation
- sExt = ".pdf"
- For Each oSlide In oPPT.Slides
- '## Retrieve the recipient's name from the shape and append it to the exported path:
- sPath = oPPT.FullName & oSlide.Shapes(1).TextFrame.TextRange.Text
- i = oSlide.SlideNumber
- oSlide.Select
- oPPT.ExportAsFixedFormat _
- Path:=sPath & sExt, _
- FixedFormatType:=ppFixedFormatTypePDF, _
- RangeType:=ppPrintSelection
- Next
- Set oPPT = Nothing
- End Sub
Advertisement
Add Comment
Please, Sign In to add comment
Advertisement