Borrar Objectos en Excel

Si necesitamos borrar objetos muchos de ellos ocultos en nuestras planillas existe una macro que puede solucionartelo de la manera sencilla. Solo debemos ir al Visual Basic, generar un módulo y copiar el siguiente texto.

Sub Elimina_Objetos_En_Todo_El_Libro()
Dim Hoja, Total
For Each Hoja In Sheets
Total = Total + Hoja.DrawingObjects.Count
Hoja.DrawingObjects.Delete
Next
End Sub

Sub Elimina_Objetos_En_Hoja_Activa()
Dim objeto As Shape
For Each objeto In ActiveSheet.Shapes
objeto.Delete
Next objeto
End Sub

Cerramos Visual Basic y en macro vamos a tener dos opciones… la hoja activa o todo el libro.