PowerPointにはプレゼンテーション資料をPDFとして保存する機能がありますが、指定のスライド範囲だけをPDFで保存することは直接的な方法がありません。しかし、Excel VBAを使えばこのタスクを自動化して特定のスライドだけをPDFとして保存することが可能です。この記事ではその方法を詳しく解説し、さらに応用例も3つ提供します。
基本的なコード
まずは、指定のスライド範囲をPDFとして保存する基本的なVBAコードをご紹介します。
Sub SaveSlidesAsPDF()
Dim PPTApp As Object
Dim PPTFile As Object
Dim rng As Range
Dim FilePath As String
Dim SlideRange As String
' PowerPointを開く
Set PPTApp = CreateObject("PowerPoint.Application")
FilePath = "C:\path\to\your\presentation.pptx" ' PowerPointファイルのパス
Set PPTFile = PPTApp.Presentations.Open(FilePath)
' 保存するスライド範囲を指定
SlideRange = "2-4" ' ここでは2から4までのスライドを指定しています
' PDFとして保存
PPTFile.ExportAsFixedFormat "C:\path\to\save\file.pdf", 2, SlideRange:=SlideRange
' PowerPointを閉じる
PPTFile.Close
Set PPTFile = Nothing
Set PPTApp = Nothing
End Sub
コードの詳細解説
– **CreateObject(“PowerPoint.Application”)**: PowerPointアプリケーションのインスタンスを作成します。
– **PPTApp.Presentations.Open(FilePath)**: 指定したFilePathのPowerPointファイルを開きます。
– **SlideRange = “2-4″**: 保存したいスライドの範囲を指定します。この例では2から4までのスライドを指定しています。
– **PPTFile.ExportAsFixedFormat**: これはPowerPointオブジェクトのメソッドで、指定した範囲のスライドをPDFとして出力する機能を提供しています。
応用例
応用例1:複数の範囲を指定
複数の非連続なスライド範囲をPDFとして保存したい場合のコード例です。
SlideRange = "2-4,7,9"
応用例2:PDFの品質を指定
PDFの出力品質を指定することも可能です。以下は高品質のPDFとして保存するコード例です。
PPTFile.ExportAsFixedFormat "C:\path\to\save\file.pdf", 2, SlideRange:=SlideRange, PrintRangeQuality:=1
応用例3:スライドのタイトルで範囲を指定
スライドのタイトルを基に範囲を指定してPDFを保存する方法です。
Sub SaveSlidesByTitleAsPDF()
Dim PPTApp As Object
Dim PPTFile As Object
Dim sld As Object
Dim SlideTitles As Variant
Dim i As Integer
Dim SlideRange As String
' PowerPointを開く
Set PPTApp = CreateObject("PowerPoint.Application")
FilePath = "C:\path\to\your\presentation.pptx"
Set PPTFile = PPTApp.Presentations.Open(FilePath)
SlideTitles = Array("タイトル1", "タイトル3") ' 保存したいスライドのタイトルを指定
For i = 1 To PPTFile.Slides.Count
For j = LBound(SlideTitles) To UBound(SlideTitles)
If PPTFile.Slides(i).Shapes.Title.TextFrame.TextRange.Text = SlideTitles(j) Then
SlideRange = SlideRange & i & ","
End If
Next j
Next i
SlideRange = Left(SlideRange, Len(SlideRange) - 1) ' 末尾のカンマを削除
' PDFとして保存
PPTFile.ExportAsFixedFormat "C:\path\to\save\file.pdf", 2, SlideRange:=SlideRange
' PowerPointを閉じる
PPTFile.Close
Set PPTFile = Nothing
Set PPTApp = Nothing
End Sub
まとめ
Excel VBAを使用することで、PowerPointの指定のスライド範囲だけをPDFで保存することが簡単に実現できます。これにより、大量のスライドから特定の範囲だけを取り出して共有するなどの作業が効率的になります。是非、この技術を活用して、日常の業務をさらに効率化してください。
コメント