VBAでPowerPointのスライドを簡単にコピーする方法

皆さん、PowerPointで同じデザインのスライドを何度も作成するのは面倒ですよね。

そんな時、VBAを使えばスライドのコピーがとても簡単にできます。

今回は、初心者の方でも理解しやすいように、VBAを使ってPowerPointのスライドをコピーする方法をご紹介します。

VBAとは？
PowerPointでVBAを使う準備
VBAでスライドをコピーする基本的な方法
特定の位置にスライドをコピーする方法
他のプレゼンテーションからスライドをコピーする方法
よくある質問や疑問
1. VBAコードを実行してもスライドがコピーされません。なぜでしょうか？

VBAとは？

まず、VBAについて簡単に説明します。VBA（Visual Basic for Applications）は、Microsoft Office製品に組み込まれているプログラミング言語です。これを使うことで、PowerPointの操作を自動化したり、作業を効率化したりすることができます。

PowerPointでVBAを使う準備

VBAを使うためには、まずPowerPointの「開発」タブを表示する必要があります。以下の手順で設定してみましょう。

PowerPointを開き、左上の「ファイル」タブをクリックします。
「オプション」を選択し、表示されたウィンドウで「リボンのユーザー設定」をクリックします。
右側の「メインタブ」の一覧から「開発」にチェックを入れ、「OK」をクリックします。

これで「開発」タブが表示され、VBAを使う準備が整いました。

VBAでスライドをコピーする基本的な方法

それでは、実際にVBAを使ってスライドをコピーしてみましょう。以下の手順で進めます。

「開発」タブをクリックし、「マクロ」グループの「Visual Basic」を選択します。
表示された「Microsoft Visual Basic for Applications」ウィンドウで、「挿入」メニューから「標準モジュール」を選びます。
新しく作成されたモジュールに、以下のコードを入力します。

vbaコード

Sub スライドをコピーする()

    ' アクティブなプレゼンテーションの1枚目のスライドをコピー

    ActivePresentation.Slides(1).Copy

    ' コピーしたスライドを最後に貼り付け

    ActivePresentation.Slides.Paste (ActivePresentation.Slides.Count + 1)

End Sub

このコードは、現在開いているプレゼンテーションの1枚目のスライドをコピーし、そのコピーを最後の位置に貼り付けるものです。

特定の位置にスライドをコピーする方法

スライドを特定の位置にコピーしたい場合は、以下のようにコードを変更します。

vbaコード

Sub スライドを特定の位置にコピーする()

    Dim コピー元 As Integer

    Dim 挿入位置 As Integer

    ' コピーしたいスライド番号

    コピー元 = 2

    ' 挿入したい位置

    挿入位置 = 4

    ' 指定したスライドをコピー

    ActivePresentation.Slides(コピー元).Copy

    ' コピーしたスライドを指定した位置に貼り付け

    ActivePresentation.Slides.Paste (挿入位置)

End Sub

このコードでは、2枚目のスライドをコピーし、4枚目の位置に貼り付けています。

他のプレゼンテーションからスライドをコピーする方法

別のPowerPointファイルからスライドをコピーすることも可能です。以下の手順で行います。

コピー元のプレゼンテーションを開き、コピーしたいスライドを選択します。
「開発」タブの「Visual Basic」を開き、新しいモジュールに以下のコードを入力します。

vbaコード

Sub 他のプレゼンテーションからスライドをコピーする()

    Dim コピー元プレゼン As Presentation

    Dim コピー先プレゼン As Presentation

    Dim スライド番号 As Integer
    ' コピー元のプレゼンテーションを設定

    Set コピー元プレゼン = Presentations.Open("C:\パス\コピー元.pptx")

    ' コピー先のプレゼンテーションを設定（現在のプレゼンテーション）

    Set コピー先プレゼン = ActivePresentation

    ' コピーしたいスライド番号

    スライド番号 = 1
    ' スライドをコピーして、コピー先のプレゼンテーションの最後に貼り付け

    コピー元プレゼン.Slides(スライド番号).Copy

    コピー先プレゼン.Slides.Paste (コピー先プレゼン.Slides.Count + 1)

' コピー元のプレゼンテーションを閉じるコピー元プレゼン.Close End Sub

このコードでは、指定したパスのプレゼンテーションから1枚目のスライドをコピーし、現在のプレゼンテーションの最後に貼り付けています。

よくある質問や疑問

VBAコードを実行してもスライドがコピーされません。なぜでしょうか？

VBAコードを実行してもスライドがコピーされない場合、以下の点を確認してください。

ここがポイント！

「開発」タブが有効になっているか。
コード内のスライド番号やファイルパスが正しいか。
コピー元のプレゼンテーションが正しく開かれているか。

これらを確認し、再度コードを実行してみてください。

🚨【緊急警報】あなたのIT悩み、今すぐ解決します！
「もう、パソコンやスマホでイライラしない」
あなたは知っていましたか？平均的な人は、IT関連の問題で年間73時間も無駄にしているのです。それは、まるまる3日以上の時間です！

🎯でも、もうその時代は終わりました
私の今までにないLINE相談サービスで、あなたのパソコンやスマホの悩みを即座に解決します。
✅ 24時間365日対応
✅ 平均応答時間わずか2分
✅ AIと人間のエキスパートが連携してサポートします

💡なぜ、今すぐ行動すべきなのか？
時間は戻ってこないからです。今この瞬間も、あなたの貴重な時間が失われています。問題を解決できなければ前には進めません。しかし、時間をかけすぎるのもバカらしいですよね。
いまなら基本無料で利用できますので、パソコンやスマホの悩みから解放された喜びを、今すぐ体験してください。
相談しに行く