JPGやPNGなどのラスタ形式ではなく、PDF形式でエクスポートする理由はありますか?これらのイメージフォーマットを切り抜くためにVBAから呼び出せるオープンソースソリューションがいくつかあります。 PDFが必要な場合、このマクロは必要な処理を行います:
Option Explicit
' *********************************************************
' Purpose : PowerPoint VBA macro to export slides as either
' and image or a PDF.
' Author : Jamie Garroch from htpp://youpresent.co.uk/
' Date : 17MAY2016
' *********************************************************
Sub ExportEachSlidesAsPDF()
Const myPath = "C:\Temp\"
Dim oSld As Slide
For Each oSld In ActivePresentation.Slides
' The next commented line exports the slide as a JPG
'oSld.Export myPath & ActivePresentation.Name & " Slide " & oSld.SlideIndex & ".jpg", "JPG"
' Export each slide as a PDF
With ActivePresentation
.PrintOptions.Ranges.ClearAll
.PrintOptions.Ranges.Add oSld.SlideIndex, oSld.SlideIndex
.ExportAsFixedFormat2 Path:=myPath & ActivePresentation.Name & " Slide " & oSld.SlideIndex & ".pdf", _
FixedFormatType:=ppFixedFormatTypePDF, _
Intent:=ppFixedFormatIntentPrint, _
FrameSlides:=msoFalse, _
HandoutOrder:=ppPrintHandoutHorizontalFirst, _
OutputType:=ppPrintOutputSlides, _
PrintHiddenSlides:=msoFalse, _
PrintRange:=.PrintOptions.Ranges(1), _
RangeType:=ppPrintSlideRange
End With
Next
End Sub
ありがとうございます。私はPDF形式のグラフィックスのベクトル形式を保持するようにしたい[無損失] これは現在のスライドだけをpdf形式でエクスポートしますか?これは私が一度に1人の人物に取り組むときに欲しいものです。 –
理解してはい、各スライドを1つのPDFファイルとしてエクスポートします。 WMFやEPSなどのベクタ形式でスライド自体からベクターオブジェクトを書き出すことができます。 –