Create a List of All Shapes

for a vba approach you can use the selection pane.
Home > Editing > Find & Select > Selection Pane.

You can use CTRL+Click to multi select and then delete.