スライドをPDFとしてエクスポートするPowerPointVBA

スポンサーリンク

知っていると便利なPowerPointVBA

ExcelVBAほど使う頻度は高くないですが、PowerPointVBAも知っていると便利な機能がたくさんあります。
今回はアクティブになっているPowerPointのスライドをPDFにして出力するPowerPointVBAコードを紹介します。

PowerPointのスライドのPDFへの出力サンプル

以下のコードはアクティブになっているPDFファイルを同じファイル名のPDFとして出力するPowerPointVBAのサンプルです。

Sub アクティブファイルをPDFで保存()

Dim FullPath As String
Dim FileName As String

FullPath = ActivePresentation.Path
FileName = Left(ActivePresentation.Name, InStrRev(ActivePresentation.Name, “.”) – 1)

ActivePresentation.SaveAs FileName:=FullPath & “\” & FileName & “.pdf”, FileFormat:=ppSaveAsPDF

End Sub

スポンサーリンク

サンプルコードの説明・補足

①ファイル名の抜き出し方

ファイル名の拡張子を除いた部分は「Left(.Name, InStrRev(.Name, “.”) – 1)」で抜き出しています。

InStrRev関数で「.」の文字位置を確認し、Left関数で「.」より左部分を取り出し、変数FileNameに格納しています。

②PDFで出力するコードは2通りの方法がある

PowerPointのスライドをPDFで出力する方法は2通りあり、どちらを使用しても同じように出力できます。

・ActivePresentation.SaveAs FileName:=FullPath & “\” & FileName & “.pdf”, FileFormat:=ppSaveAsPDF
・ActivePresentation.ExportAsFixedFormat Path:=FullPath & “\” & FileName & “.pdf”, FixedFormatType:=ppFixedFormatTypePDF

コメント