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

最終更新日：2020年6月

適用対象：Office2019以前。Windowsのみ。

読者からの質問は次のとおりです。

経営陣への四半期報告書のプレゼンテーションの一環として、他のプレゼンテーションからいくつかの一般的な情報スライドをコピーする必要があることがよくあります。大したことではありませんが、この演習を自動化できることは大幅な節約になります。それを達成するためのVBAマクロの助けはありがたいです！

先ほど述べたように、Visual Basic for Applicationsを使用して、PowerPointでスライドのコピーと貼り付けを自動化できます。毎月複数のプレゼンテーションを作成する必要がある場合、このスライドのコピー/インポートの自動化は大幅な時間の節約になる可能性があります。

スライドを追加するためのPowerPointVBA

この簡単な演習を始めましょう。

まず、開発タブが有効になっていて表示されていることを確認します。これを行う方法は次のとおりです。

マクロ対応のプレゼンテーション（ファイルタイプは.pptm）を既に作成しており、ソースプレゼンテーション（これをsource.pptmと呼びます）と同じディレクトリに配置していると仮定します。VBAを使用してPowerPointプレゼンテーションを作成する方法は次のとおりです。

まず、そのプレゼンテーションのバックアップを取りましょう（単純なコピーと保存）。

次に、次のマクロを宛先プレゼンテーションの新しいVBAモジュールに挿入します。これを行う方法の詳細は、PowerPointVBAチュートリアルに記載されています。

スライドを自動的にコピーして貼り付けるために必要なVBAコードは次のとおりです。

私が行ったいくつかの仮定：

• ソースプレゼンテーションの名前はsource.pptmです。
•  ソースプレゼンテーションからスライド2〜4を貼り付けます
• スライド5からコピーしたスライドを配置します。

Sub InsertFromOtherPres()

' This short VBA macro copies slides from one presentation and inserts them into another

ActivePresentation.Slides.InsertFromFile FileName:="source.pptm", Index:=1, SlideStart:=2, 
SlideEnd:=4

End Sub

もちろん、要件に合うように、コード内のスライド番号のインデックスを自由に変更してください。

複数のプレゼンテーションをループさせて、それぞれの特定のスライドを管理レポートに挿入することができます。

スライドを複製するためのPowerPointVBA

スライドを別のプレゼンテーションにコピーする代わりに、プレゼンテーション内の1つ以上のスライドのクローンを作成することをお勧めします。

Sub CopySlides()

' Short snippet to duplicate the third slide in a presentation, change the index/es accrodingly

ActivePresentation.Slides(3).Duplicate

End Sub

これらは、PowerPoint自動化の簡単な例のほんの一例です。特定の質問をお探しの読者は、お問い合わせページからお気軽にお問い合わせください。

お役に立てば幸いです🙂