PowerPoint VBAで選択を解除する方法：初心者でもできる簡単マクロの作り方

PowerPointでスライドを作成しているとき、「選択を解除したいけれど、どうすればいいのか分からない」と困ったことはありませんか？特に、複数の図形を操作しているときに、不要な選択を解除する方法が分からず、作業が進まないことがありますよね。そんな悩みを解決するために、今回はPowerPointのVBA（マクロ）を使って、選択を解除する方法をご紹介します。

PowerPoint VBAで選択を解除する基本の方法
特定の図形だけを選択解除する方法
選択を反転させる方法（選択されていないものを選択する）
よくある質問や疑問
今すぐ解決したい！どうしたらいい？
まとめ

PowerPoint VBAで選択を解除する基本の方法

PowerPointのイメージ

PowerPointのVBAには、現在選択されているものを解除するためのメソッド「Unselect」が用意されています。これを使うと、選択中の図形やオブジェクトの選択状態を解除することができます。

例えば、以下のようなコードを使います

ActiveWindow.Selection.Unselect

このコードを実行すると、現在選択されているすべての図形の選択が解除されます。特に、複数の図形を操作する際に便利です。

特定の図形だけを選択解除する方法

時には、すべての選択を解除するのではなく、特定の図形だけの選択を解除したい場合があります。例えば、図形の種類や名前で選択を解除したいときです。

以下は、特定の図形を選択解除する例です

Sub DeselectSpecificShape()

    Dim shp As Shape

    For Each shp In ActiveWindow.Selection.ShapeRange

        If shp.Name = "図形1" Then

            shp.Select msoFalse

        End If

    Next shp

End Sub

このコードでは、「図形1」という名前の図形だけを選択解除しています。自分のスライドに合わせて、図形の名前や条件を変更することで、柔軟に対応できます。

選択を反転させる方法（選択されていないものを選択する）

時には、現在選択されている図形以外のすべての図形を選択したい場合があります。これを「選択の反転」と呼びます。PowerPointには直接的な「反転選択」機能はありませんが、VBAを使って実現することができます。

以下は、選択を反転させるコードの例です

Sub InvertSelection()

    Dim shp As Shape

    Dim selectedShapes As Collection

    Set selectedShapes = New Collection
    ' 現在選択されている図形を記録

    For Each shp In ActiveWindow.Selection.ShapeRange

        selectedShapes.Add shp

    Next shp
    ' すべての図形を選択解除

    ActiveWindow.Selection.Unselect
    ' 選択されていない図形を選択

    For Each shp In ActivePresentation.Slides(1).Shapes

        If Not IsInCollection(selectedShapes, shp) Then

            shp.Select msoFalse

        End If

    Next shp

End Sub

Function IsInCollection(coll As Collection, item As Variant) As Boolean On Error GoTo ErrHandler IsInCollection = False coll.Item item.Name IsInCollection = True Exit Function ErrHandler: Exit Function End Function

このコードでは、現在選択されている図形を一度記録し、その後、選択されていない図形を選択することで、選択を反転させています。