初心者向けVBA PowerPoint活用術：簡単な例でわかりやすく解説

2025.10.052026.01.27

VBA（Visual Basic for Applications）は、Microsoft Office製品を使う上で非常に強力なツールです。特にPowerPointでの自動化やカスタマイズに使えるVBAを活用すれば、プレゼンテーションの作成や編集がぐっと楽になります。しかし、VBAの使い方に困っている方も多いのではないでしょうか？本記事では、VBA初心者向けに、簡単なPowerPointのVBAコード例を使って、どんなことができるのかをわかりやすく解説します。

VBAとは？PowerPointで何ができるのか
初心者でもできる！PowerPointのVBAコード例
よくある質問や疑問
1. VBA初心者でも問題なく使えますか？
2. どんな作業をVBAで自動化できるのか教えてください。
まとめ

VBAとは？PowerPointで何ができるのか

PowerPointのイメージ

VBAは、ExcelやWord、PowerPointなどのOfficeアプリケーションを自動化するためのプログラムです。手動で行っていた作業を、VBAに任せることで、時間を大幅に短縮できるだけでなく、同じ作業を繰り返し行うときにエラーを防ぐことができます。

例えば、PowerPointで何十枚ものスライドに同じ書式を適用したいときや、特定の内容を一括で変更したいときに、VBAを使えば簡単に実行できます。次の章で、実際のコード例を紹介していきます。

このサイトをチップで応援

￥100ありがとう￥300助かった！￥1,500神記事！

初心者でもできる！PowerPointのVBAコード例

VBAを使うときは、まず「開発者タブ」を有効にする必要があります。これを行うことで、VBAエディターにアクセスでき、実際にコードを書くことができるようになります。以下の手順を参考にして、まずはVBAエディターを開いてみましょう。

PowerPointを開き、上部メニューの「ファイル」から「オプション」を選びます。
「リボンのユーザー設定」で「開発者」をチェックし、「OK」をクリックします。
「開発者」タブがメニューに追加され、VBAエディターを開けるようになります。

それでは、実際に使える簡単なVBAコード例をいくつか紹介します。

全てのスライドにタイトルを追加する

以下のコードをVBAエディターに入力して実行すると、すべてのスライドに指定したタイトルを追加できます。

vba

Sub AddTitleToAllSlides()

    Dim slide As slide

    For Each slide In ActivePresentation.Slides

        slide.Shapes(1).TextFrame.TextRange.Text = "ここにタイトル"

    Next slide

End Sub

このコードでは、PowerPointの全てのスライドに「ここにタイトル」という文字を追加します。スライドごとに同じタイトルを一括で設定したい場合に便利です。

画像をスライドに挿入する

スライドに画像を挿入するためには、以下のコードを使います。このコードを実行すると、指定した画像ファイルを現在のスライドに挿入します。

vba

Sub InsertImage()

    Dim slide As slide

    Set slide = ActivePresentation.Slides(1) '1番目のスライドに挿入

    slide.Shapes.AddPicture "C:pathtoimage.jpg", _

        MsoTriState.msoFalse, MsoTriState.msoCTrue, 100, 100, 200, 200

End Sub

このコードは、指定したパスにある画像をスライドに挿入します。画像の位置や大きさも指定できますので、自由にカスタマイズできます。

スライドにテキストを追加する

もしスライドに特定のテキストを追加したい場合、次のコードを使います。

vba

Sub AddTextToSlide()

    Dim slide As slide

    Set slide = ActivePresentation.Slides(1) '1番目のスライド

    slide.Shapes.AddTextbox(MsoTextOrientation.msoTextOrientationHorizontal, _

        100, 100, 500, 100).TextFrame.TextRange.Text = "これはテキストです"

End Sub

このコードでは、スライドにテキストボックスを追加し、その中に「これはテキストです」というテキストを表示させます。テキストボックスの位置やサイズも指定可能です。