VBAを使用してスライドを作成してPowerPointプレゼンテーションに追加するにはどうすればよいですか？

数日前、ある読者から、PowerPointプレゼンテーションの作成を最初から自動化し、既存のプレゼンテーションにスライドをすばやく追加する方法があるかどうか尋ねられました。私は、そのスクリプトが最も有用なPowerPointマクロのリストに非常に含まれている可能性があります。 

過去に示したように、PowerPointにはマクロレコーダーが含まれていません（どちらもマクロ用のレコーダーが組み込まれているExcelやWordとは異なります）。したがって、PowerPointを自動化するための単純なマクロを作成するために使用できる古き良きVisual Basic forApplicationが残っています。PowerPoint Automationにはさらに別の方法がありますが、それらはこのチュートリアルの範囲を超えています。

今日の短いチュートリアルでは、3つの異なるユースケースについて説明します。

1. 新しいプレゼンテーションの作成（空白またはテンプレートを使用）
2. 既存のプレゼンテーションにスライドを追加します。
3. 上記の2つのケースの組み合わせ（最初から作成とスライドの追加）

始めましょう。

リボンを見てください。メニューに[開発者]エントリが表示されない場合は、コーディングを開始する前に、[開発者]タブを有効にする必要があります。

開発者メニューをリボンに表示した後、先に進んで開発者を押し、次にVisual Basicボタンを押して（または単に先に進んでAlt + F11を押して）、Visual BasicIDEを開きます。

PowerPointプレゼンテーションを作成するためのVBA

1. VBエディターで、VBAProjectを右クリックし、[挿入]をクリックします。
2. モジュールを選択します。
3. 新しく作成したモジュールに次のコードを貼り付けます。

Sub CreatePresentation()
Dim NewPres as Presentation
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
End Sub

1. [ファイル]、[保存]の順にクリックします。
2. コードを実行するには、[実行]をクリックしてから、[サブ/ユーザーフォームの実行]（または単にF5）を選択します。
3. VBエディターを閉じます。

スライドを挿入するVBA

1. VBエディターで、VBAProjectを右クリックし、[挿入]をクリックします。
2. モジュールを選択
3. 新しく作成したモジュールに次のコードを貼り付けます。

Sub CreateSlide()
Dim NewSlide as Slide
'This statement ads a title slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
End Sub

1. [ファイル]、[保存]の順にクリックします。
2. コードを実行するには、[実行]をクリックしてから、[サブ/ユーザーフォームの実行]（または単にF5）を選択します。
3. VBエディターを閉じます。

新しいプレゼンテーションを設定してスライドを追加するマクロ

これは、上記で概説した2つのスニペットを混同しているだけです。

Sub CreatePres_AddSlides()
Dim NewPres as Presentation
Dim NewSlide as Slide
Set NewPres = Presentations.Add
NewPres.SaveAs("MyPresentation.pptx")
' Title Slide
Set NewSlide = ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)
'This statement adds a blank slide in the second place
Set NewSlide = ActivePresentation.Slides.Add(Index:=2, Layout:=ppLayoutBlank)
'Save the new PowerPoint file
NewPres.SaveAs("MyPresentation.pptx")
End Sub

次に、VBAを使用してPowerPointで図形をプログラムで作成するためのチュートリアルを調べることができます。

ExcelからPowerPointプレゼンテーションを生成する

最後のケースは、Excelスプレッドシートから直接PowerPointプレゼンテーションを作成したい場合です。Wordや他のMicrosoft365アプリケーションから同じ手法を使用できます。

• スプレッドシートをPowerPointデータモデルにリンクする（[ツール] >> [参照]から）
• Excelスプレッドシートにボタンを挿入します（[開発者] >> [挿入]をクリックしてからコマンドボタンを選択します）。
• 以下のVBAコードをスプレッドシートVBAプロジェクトに挿入します（シートに直接、またはVBAモジュールに）
• 必要に応じてスクリプトを変更します。
• 実行（F5を押す）して結果をテストします。

Sub CreatePresentationFromExcel()


Dim MyPPt As PowerPoint.Application
Dim NewPres As PowerPoint.Presentation
Dim NewSlide As Slide
Set MyPPt = CreateObject("PowerPoint.Application")

Set NewPres = MyPPt.Presentations.Add
Set NewSlide = MyPPt.ActivePresentation.Slides.Add(Index:=1, Layout:=ppLayoutTitle)

NewPres.SaveAs ("MyPresentation.pptx")
NewPres.Close

MyPPt.Quit

MsgBox ("Presentation saved")
End Sub

お楽しみください🙂