アクティブシート内の画像をすべて削除したい。

エクセルシートの画像オブジェクトをちまちま選択削除ではなく、

一気に削除したい。。。

＜コード＞

Sub アクティブシートの画像をすべて削除()

Dim oj1 As Shape　　 'oj1=削除したい画像定義付け

For Each oj1 In ActiveSheet.Shapes
oj1.Delete
Next oj1

End Sub