delete all objetcs

is there an code 2 delete all objects present in an "specific" sheet?
i dont want 2 clear out my text placed within the cells, only objects such as:
buttons,
textboxes,
rectangles,
squares,
etc.

any help would be apreciated, thx in 4ward Willie64

no more help is needed i found my awnser after sum research..
the code is:

    ActiveSheet.DrawingObjects.Select
    Selection.Delete
' r just 
    ActiveSheet.DrawingObjects.Delete