Clearing shapes

[mdmackillop]

Clearing shapes requires selecting then first, but if there are no shapes, the ActiveCell is deleted. What is the neatest way around this?


Sub DeleteDrawingObjects()
'Delete drawing objects from sheet
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

[Jacob Hilderbrand]

If ActiveSheet.Shapes.Count > 0 Then

[MWE]

Clearing shapes requires selecting then first, but if there are no shapes, the ActiveCell is deleted. What is the neatest way around this?


Sub DeleteDrawingObjects()
'Delete drawing objects from sheet
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub


how about


Sub DeleteDrawingObjects()
'Delete drawing objects from sheet
ActiveSheet.Shapes.SelectAll
If ActiveSheet.Shapes.Count > 0 Then Selection.Delete
End Sub

[mdmackillop]

Thanks both. It's been a long, long day and the brain has stopped working!

[Jacob Hilderbrand]

lol, glad to help :beerchug:

Take Care

[Ivan F Moala]

No need to select them ...


ActiveSheet.DrawingObjects.Delete