PowerPoint VBAで図形を削除する方法｜初心者でもできる簡単マクロ解説

2025.10.09

PowerPointのスライドに挿入した図形を、手動でひとつずつ削除するのは面倒ですよね。特に、たくさんの図形を一度に削除したい場合、VBA（Visual Basic for Applications）を使うと効率的です。この記事では、初心者の方でもわかりやすいように、PowerPoint VBAで図形を削除する方法を、実際の例を交えてご紹介します。

PowerPoint VBAで図形を削除する基本のマクロ
特定の図形だけを削除する方法
図形を削除する際の注意点
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

PowerPoint VBAで図形を削除する基本のマクロ

PowerPointのイメージ

まずは、PowerPointのスライド上のすべての図形を削除する基本的なマクロをご紹介します。

Sub DeleteAllShapes()

    Dim shp As Shape

    For Each shp In ActiveWindow.Selection.SlideRange.Shapes

        shp.Delete

    Next shp

End Sub

このマクロは、現在選択されているスライド上のすべての図形を削除します。実行することで、スライドがすっきりと整理されます。

特定の図形だけを削除する方法

次に、特定の図形だけを削除したい場合のマクロをご紹介します。例えば、テキストボックスや画像など、種類を指定して削除することができます。

Sub DeleteSpecificShapes()

    Dim shp As Shape

    For Each shp In ActiveWindow.Selection.SlideRange.Shapes

        If shp.Type = msoTextBox Then

            shp.Delete

        End If

    Next shp

End Sub

このマクロでは、スライド上のすべての図形の中から、テキストボックスのみを削除対象としています。`msoTextBox`の部分を他の図形タイプに変更することで、削除する図形の種類を変えることができます。

図形を削除する際の注意点

図形を削除する際には、以下の点に注意してください。

ここがポイント！

削除は元に戻せないため、実行前にスライドのバックアップを取っておくことをおすすめします。
スライドの選択状態に注意してください。選択されていないスライドでは、図形を削除できません。
マクロの実行後は、スライドが変更されていることを確認してください。

よくある質問や疑問

Q1: VBAマクロを実行するにはどうすればいいですか？

VBAマクロを実行するには、PowerPointを開き、「Alt + F11」でVBAエディタを開きます。新しいモジュールを挿入し、上記のコードを貼り付けてください。その後、「F5」キーを押すことでマクロを実行できます。

Q2: 特定のスライドだけでなく、すべてのスライドの図形を削除する方法はありますか？

はい、すべてのスライドの図形を削除するには、以下のようなマクロを使用します。

Sub DeleteAllShapesInAllSlides()

    Dim slide As slide

    Dim shp As Shape

    For Each slide In ActivePresentation.Slides

        For Each shp In slide.Shapes

            shp.Delete

        Next shp

    Next slide

End Sub

このマクロは、プレゼンテーション内のすべてのスライドに対して、すべての図形を削除します。