Попробуйте так  
 
Sub DeleteShapes()  
   On Error Resume Next  
   Shapes.SelectAll  
   Selection.Delete  
   On Error GoTo 0  
End Sub

Тогда так  
 
1) меню Правка - Прейти (Ctrl+G)  
2) в появившемся окне нажать кнопку "Выделить"  
3) в появившемся окне выделить точнок "Объекты"  
4) нажать ОК  
5) Нажать клавиву Delete  
 
P.S. Вроде так )