Excel VBAでPowerPointを操作する方法：初心者でも安心！

PowerPointを使っていると、「同じ作業を何度も繰り返すのが面倒だな」と感じること、ありませんか？例えば、毎回同じ内容のスライドを作成したり、同じ形式でデータを貼り付けたり…。そんな時に便利なのが、Excel VBAを使ったPowerPointの自動化です。

「でも、VBAって難しそう…」と感じる方も多いかもしれません。安心してください。今回は、初心者の方でもわかりやすいように、PowerPointをVBAで操作する基本的な方法を、実際の例を交えてご紹介します。

PowerPointをVBAで操作する準備
PowerPointを新規作成するVBAコード
PowerPointにスライドを追加するVBAコード
ExcelのデータをPowerPointに貼り付けるVBAコード
よくある質問や疑問
1. Q1: VBAのコードを書いた後、どのように保存するのですか？
2. Q2: VBAを使うと、プレゼンテーションにどんなメリットがありますか？
今すぐ解決したい！どうしたらいい？
まとめ

PowerPointをVBAで操作する準備

PowerPointのイメージ

まず、ExcelからPowerPointを操作するためには、VBAの「参照設定」を行う必要があります。これをしないと、PowerPointの機能をExcelから使うことができません。

参照設定の手順は以下の通りです

Excelを開き、「Alt」+「F11」でVBAエディタを開きます。
「ツール」メニューから「参照設定」を選択します。
リストの中から「Microsoft PowerPoint XX.0 Object Library」にチェックを入れます（XXはバージョン番号です）。
「OK」をクリックして設定を保存します。

これで、ExcelからPowerPointを操作する準備が整いました。

PowerPointを新規作成するVBAコード

次に、VBAを使って新しいPowerPointのプレゼンテーションを作成する方法をご紹介します。

Sub CreateNewPowerPoint()

    Dim ppApp As Object

    Dim ppPres As Object
    ' PowerPointアプリケーションのインスタンスを作成

    Set ppApp = CreateObject("PowerPoint.Application")
    ' 新しいプレゼンテーションを作成

    Set ppPres = ppApp.Presentations.Add
    ' PowerPointを表示

    ppApp.Visible = True

' 使用後のオブジェクトを解放 Set ppPres = Nothing Set ppApp = Nothing End Sub

このコードを実行すると、新しいPowerPointのプレゼンテーションが作成され、PowerPointが表示されます。

PowerPointにスライドを追加するVBAコード

次に、既存のPowerPointファイルに新しいスライドを追加する方法をご紹介します。

Sub AddSlideToPowerPoint()

    Dim ppApp As Object

    Dim ppPres As Object

    Dim ppSlide As Object
    ' PowerPointアプリケーションのインスタンスを取得

    Set ppApp = CreateObject("PowerPoint.Application")
    ' 既存のプレゼンテーションを開く

    Set ppPres = ppApp.Presentations.Open("C:\Path\To\Your\Presentation.pptx")
    ' 新しいスライドを追加

    Set ppSlide = ppPres.Slides.Add(ppPres.Slides.Count + 1, 1) ' 1はスライドのレイアウトタイプ
    ' 新しいスライドにタイトルを設定

    ppSlide.Shapes(1).TextFrame.TextRange.Text = "新しいスライドのタイトル"

' 使用後のオブジェクトを解放 Set ppSlide = Nothing Set ppPres = Nothing Set ppApp = Nothing End Sub

このコードを実行すると、指定したPowerPointファイルに新しいスライドが追加され、タイトルが設定されます。

ExcelのデータをPowerPointに貼り付けるVBAコード

ExcelのシートにあるデータをPowerPointのスライドに貼り付ける方法をご紹介します。

Sub PasteExcelDataToPowerPoint()

    Dim ppApp As Object

    Dim ppPres As Object

    Dim ppSlide As Object

    Dim ws As Worksheet
    ' PowerPointアプリケーションのインスタンスを取得

    Set ppApp = CreateObject("PowerPoint.Application")
    ' 新しいプレゼンテーションを作成

    Set ppPres = ppApp.Presentations.Add
    ' 最初のスライドを取得

    Set ppSlide = ppPres.Slides(1)
    ' Excelのシートを設定

    Set ws = ThisWorkbook.Sheets("Sheet1")
    ' Excelの範囲をコピー

    ws.Range("B10").Copy
    ' PowerPointのスライドに貼り付け

    ppSlide.Shapes.Paste