一度にオブジェクトを選択(Excel VBA)

ワークシート内のオブジェクト全てをExcel VBAを使って選択する方法(2種類)です。

その1:
アクティブシート内のShapesコレクションにある各Shapeを
For～Nextにより全て選択する方法です。

Sub SelectShapes1()
    Dim ws As Worksheet
    Dim shp As Shape
    
    Set ws = ActiveSheet
    
    For Each shp In ws.Shapes
        shp.Select False
    Next
    
End Sub

Selectメソッドの第1引数をFalseとすることで、
それまでのオブジェクト選択が残ったまま、選択に追加されていきます。

その2:
ShapesオブジェクトのSelectAllメソッドにより、
アクティブシート内すべてのオブジェクトを選択できます。

Sub SelectShapes2()
    Dim ws As Worksheet
    
    Set ws = ActiveSheet
    
    ws.Shapes.SelectAll
    
End Sub