How to select and delete special objects?

[seanxx]

my workbook found 7200 objects and I need to delete them all except 2 objects.
I don't know how to mark them and where is the option to DELETE objects.
How to mark / unmark objects for deletion.
How should I proceed, please?

thank you

 

[DanteAmor]

After selecting all, press the control key and uncheck one object with the left mouse button, repeat the same for the other object, then press the delete key to delete the other selected objects.

 

[seanxx]

After selecting all, press the control key and uncheck one object with the left mouse button, repeat the same for the other object, then press the delete key to delete the other selected objects.

HOW SHOULD I SELECT ALL THE OBJECTS, PLEASE?
ctr+a?

 

[Peter_SSs]

HOW SHOULD I SELECT ALL THE OBJECTS, PLEASE?

Didn't you already have them all selected when you created the image in post 1? How did you do that?
Was it F5 -> Special .. -> Objects -> OK?

 

[DanteAmor]

ctr+a?

yes

All selected objects are displayed in your image.

Other way to select:

On the Home tab, in the Editing group, click Find & Select and do one of the following:

• To select objects click Select Objects, and then draw a box over the objects.
• Exclude the 2 objects you do not want to select from the box.

Example:

After selecting them with the mouse and releasing the left mouse button:

Now just prese delete key.

 

[seanxx]

After selecting all, press the control key and uncheck one object with the left mouse button, repeat the same for the other object, then press the delete key to delete the other selected objects.

Thanks for the explanation, you helped me.
It's okay now.
Excel took a very long time to respond when I unchecked
2 objects out of 7200 (to be deleted)

 

[seanxx]

Didn't you already have them all selected when you created the image in post 1? How did you do that?
Was it F5 -> Special .. -> Objects -> OK?

Yes, I chose them
but everything is fine now, it took longer.

thank you

 

[Peter_SSs]

Cheers. Glad you got it sorted.

 

[jolivanes]

Possibly for future use if you forgot how to use the other better suggestions.

Sub Delete_All_Except_Two()
Dim shp As Shape
    For Each shp In ActiveSheet.Shapes
        Select Case shp.Name
            Case "Button 1", "TextBox 2"    '<---- Names of shapes not to be deleted
                Case Else
            shp.Delete
        End Select
    Next shp
End Sub