Экспорт каждого слайда Powerpoint в отдельный файл pdf

Question

Мне нужно сгенерировать для каждого слайда моей презентации файл PDF.

Я использую следующий код:

ActivePresentation.ExportAsFixedFormat ActivePresentation.Path & "\" & ActivePresentation.Name & ".pdf", ppFixedFormatTypePDF, ppFixedFormatIntentPrint 

Этот код работает отлично, но она экспортирует все слайды в уникальный файл PDF.

Answer 1

Вы можете сделать это: Ниже код создаст pdf с добавлением номера слайда в конце текущей папки, имени файла.

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 

Answer 2

Я обнаружил быстрый/простой способ сохранения отдельных слайдов в презентации в п.п. отдельных PDF-файлов ... ничего фантазии ... всего в нескольких шагах ... (1) щелкните правой кнопкой мыши на (как показано в левом столбце), выберите COPY (2) Щелкните левой кнопкой мыши на левом нижнем углу кнопки «Пуск» и откройте программу PowerPoint заново на пустой странице (3) Щелкните правой кнопкой мыши этот пустой документ и нажмите на кнопку «Вставить» (у вас может быть дополнительная пустая страница вверху, просто щелкните правой кнопкой мыши и вырежьте ее, чтобы избавиться от нее) (4) Файл/Сохранить как/(выберите) PDF Повторите шаги для каждого слайда