2

プレゼンテーションのスライドごとに PDF ファイルを生成する必要があります。

私は次のコードを使用しています：

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

このコードは問題なく動作しますが、すべてのスライドを一意の pdf ファイルにエクスポートします。

4

4 に答える 4

5

以下のコードは、現在のフォルダー、ファイル名の末尾にスライド番号を追加して 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
于 2013-07-31T06:47:39.587 に答える