Excel VBAを使ってPowerPointの特定のスライドをPDFで保存する方法

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で保存することが簡単に実現できます。これにより、大量のスライドから特定の範囲だけを取り出して共有するなどの作業が効率的になります。是非、この技術を活用して、日常の業務をさらに効率化してください。