PowerPointにはプレゼンテーション資料をPDFとして保存する機能がありますが、指定のスライド範囲だけをPDFで保存することは直接的な方法がありません。しかし、Excel VBAを使えばこのタスクを自動化して特定のスライドだけをPDFとして保存することが可能です。この記事ではその方法を詳しく解説し、さらに応用例も3つ提供します。
Excel VBAの基本
Excel VBA（Visual Basic for Applications）は、Microsoft Excelに組み込まれたプログラミング言語です。これを用いると、単純作業の自動化だけでなく、高度なデータ分析やレポート作成も可能になります。
そもそも、どこにVBAコードを書いて、どう実行すれば良いのか分からない場合は、以下の記事をご参照ください。
基本的なコード
まずは、指定のスライド範囲を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で保存することが簡単に実現できます。これにより、大量のスライドから特定の範囲だけを取り出して共有するなどの作業が効率的になります。是非、この技術を活用して、日常の業務をさらに効率化してください。
VBAも良いけどパワークエリも良い
VBAの解説をしてきましたが、VBAは正直煩雑でメンテナンス性が悪いです。最近はモダンExcelと呼ばれるパワークエリやパワーピボットへのシフトが進んできています。本サイトでもパワークエリの特集をしており、サンプルデータを含む全11回の学習コンテンツでパワークエリを習得することができます。
クリックするとパワークエリの全11講座が表示されます。
-
【初心者向け】パワークエリ入門：ETLツールを使ってエクセルデータを簡単に整形・統合しよう！(1/11)
-
【実践ガイド】パワークエリでデータ収集：Excel、CSV、PDF、Webデータを簡単に取り込む方法をマスターしよう！(2/11)
-
【総力特集】パワークエリで列操作をマスター：選択、変更、移動、削除、結合、分割の詳細解説＆実践テクニック！(3/11)
-
【徹底解説】パワークエリで行操作をマスター！フィルター・保持・削除テクニックと練習用エクセルで実践学習(4/11)
-
パワークエリでデータクレンジング: 文字列結合、0埋め、テキスト関数をマスター(5/11)
-
パワークエリで四捨五入、切り捨て、切り上げをマスターする方法（6/11）
-
パワークエリで効率的なデータグループ化を実現する方法(7/11)
-
パワークエリで時間と日付の計算をマスター！便利な関数を使って効率アップ(8/11)
-
パワークエリで条件別集計をマスターする方法(9/11)
-
Excelパワークエリでクロス集計表とデータベース形式を瞬時に変換する方法(10/11)
-
Excelパワークエリ入門: 効率的なデータ整理をマスターしよう！(11/11)
パワーピボットの記事はありません。興味がある場合は、書籍で学んでみてください
コメント