PowerPointをPDFに一括変換するマクロの使い方：初心者でもできる簡単ステップ

「PowerPointのスライドをPDFにまとめて変換したいけど、ひとつずつ手作業でやるのは面倒だなぁ」と感じていませんか？特に、たくさんの資料を一度にPDF化したいとき、手動では時間も手間もかかりますよね。そんなときに役立つのが、VBA（Visual Basic for Applications）を使った「マクロ」です。今回は、初心者の方でも安心して使える、PowerPointをPDFに一括変換するマクロの作り方と使い方をご紹介します。

PowerPointをPDFに一括変換するマクロとは？
初心者でもできる！PowerPointをPDFに一括変換するマクロの作り方
複数のPowerPointファイルを一括でPDFに変換する方法
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

PowerPointをPDFに一括変換するマクロとは？

PowerPointのイメージ

PowerPointのマクロとは、Microsoft Office製品に組み込まれているプログラミング言語「VBA」を使って、繰り返し行う作業を自動化するための仕組みです。これを使うことで、複数のPowerPointファイルを一度にPDF形式で保存することができます。

例えば、社内で使うプレゼン資料をPDF化して配布したいとき、手動で一つずつ変換するのは大変です。しかし、マクロを使えば、指定したフォルダ内のすべてのPowerPointファイルを自動でPDFに変換してくれるので、作業時間を大幅に短縮できます。

初心者でもできる！PowerPointをPDFに一括変換するマクロの作り方

では、実際にPowerPointをPDFに一括変換するマクロを作ってみましょう。以下の手順で進めていきます。

PowerPointを開いてVBAエディタを起動

まず、PowerPointを開きます。次に、キーボードの「Alt」キーを押しながら「F11」キーを押すと、VBAエディタが開きます。

新しいモジュールを挿入

VBAエディタが開いたら、左側の「VBAProject（プレゼンテーション名）」を右クリックし、「挿入」→「標準モジュール」を選択します。これで新しいモジュールが作成されます。

マクロのコードを入力

新しく作成されたモジュールに、以下のコードをコピー＆ペーストします。



Sub SaveAsPDF()

    Dim pptApp As Object

    Dim pptPres As Object

    Dim savePath As String
    ' PowerPointアプリケーションを起動

    Set pptApp = CreateObject("PowerPoint.Application")

    pptApp.Visible = True
    ' 現在のプレゼンテーションを取得

    Set pptPres = pptApp.ActivePresentation
    ' 保存先のパスを指定

    savePath = "C:\Users\ユーザー名\Documents\プレゼンテーション.pdf"

' PDFとして保存 pptPres.SaveAs savePath, 32 ' 32はppSaveAsPDFの定数値 End Sub

このコードは、現在開いているPowerPointプレゼンテーションを指定したパスにPDF形式で保存するものです。

マクロを実行

コードを入力したら、キーボードの「F5」キーを押すか、VBAエディタの「実行」ボタンをクリックしてマクロを実行します。これで、指定した場所にPDFが保存されます。

複数のPowerPointファイルを一括でPDFに変換する方法

複数のPowerPointファイルを一度にPDFに変換したい場合は、以下のようなコードを使います。



Sub BatchConvertToPDF()

    Dim pptApp As Object

    Dim pptPres As Object

    Dim folderPath As String

    Dim fileName As String

    Dim savePath As String

    Dim fileDialog As Object
    ' フォルダ選択ダイアログを表示

    Set fileDialog = Application.FileDialog(3) ' 3はフォルダ選択ダイアログ

    If fileDialog.Show = -1 Then

        folderPath = fileDialog.SelectedItems(1)

    Else

        Exit Sub

    End If
    ' PowerPointアプリケーションを起動

    Set pptApp = CreateObject("PowerPoint.Application")

    pptApp.Visible = True
    ' フォルダ内のすべてのPowerPointファイルを処理

    fileName = Dir(folderPath & "\*.pptx")

    Do While fileName <> ""

        Set pptPres = pptApp.Presentations.Open(folderPath & "\" & fileName)

        savePath = folderPath & "\" & Left(fileName, Len(fileName) - 5) & ".pdf"

        pptPres.SaveAs savePath, 32 ' 32はppSaveAsPDFの定数値

        pptPres.Close

        fileName = Dir

    Loop