ActiveSheetのすべてのShapeを選択

ActiveSheetのすべてのShapeを指定することは
以外に難しいです。

前記事を作っている途中のことですが、
作成したたくさんのShapeを削除したいとき
1つ1つ手で選択して削除するのも面倒なので、
シートごと削除してました。

それで ActiveSheetのすべてのShapeを指定すれば
全削除できると考えたのですが、
Shapes.Deleteみたいに簡単にはできませんでした。

Shapesの名前の入れたVariant型の配列を作成して、
これをすべてのShapeを指定するのに使います。

コードはこちら

Sub macro110625a()
'ActiveSheetのシェイプをすべて削除

    Dim i As Integer
    Dim strName() As Variant
    ReDim strName(1 To ActiveSheet.Shapes.Count)
   
    For i = 1 To ActiveSheet.Shapes.Count
        strName(i) = ActiveSheet.Shapes(i).Name
    Next i
   
    'ActiveSheet.Shapes.Range(strName).Select
    ActiveSheet.Shapes.Range(strName).Delete
   
End Sub

全部を選択したいときは
コメントにしてあるSelectのほうを使ってください。