知っていると便利な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
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
・ActivePresentation.ExportAsFixedFormat Path:=FullPath & “\” & FileName & “.pdf”, FixedFormatType:=ppFixedFormatTypePDF
コメント