Eliminar todos los objetos de todas las hojas de un libro

[Alejandro García Sardón]

Hola.

Necesito eliminar todos los objetos de todas las hojas de un libro.

Tengo una macro que elimina todos los objetos de la hoja activa, pero necesito que lo haga para todas las hojas.

Podría ir hoja por hoja, pero mejor en una macro.

El código que tengo para la hoja activa

Sub BorraObjetos()

Dim n As Integer

Dim Objeto As Object

n = 0

For Each Objeto In ActiveSheet.Shapes

    Objeto.Delete

    n = n + 1

Next Objeto

MsgBox n & " objetos eliminados.", vbInformation, "Hojas"

End Sub

[/CODE]

Agradezco la ayuda.

Gracias.

[Armando Montes]

Usa un bucle para recorrer las hojas:

Entrar en un bucle con macros de Excel - Excel - Office.com

[Antoni]

Esto es lo más corto que conozco.

Sub EliminarTodosLosObjetosDeTodasLasHojas()

  Dim Hoja, Total

  For Each Hoja In Sheets

      Total = Total + Hoja.DrawingObjects.Count

      Hoja.DrawingObjects.Delete

  Next

  MsgBox Total & " objetos eliminados"

End Sub

[/CODE]

[Alejandro García Sardón]

Probado, adaptado y funcionando

Gracias MacroAntonio

Tema resuelto!!!!

[Armando Montes]

Alejandro, puedes agradecer con un clic en Me Gusta, abajo a la derecha del mensaje.

[Alejandro García Sardón]

Ok, Gracias

[Armando Montes]

SOLUCIONADO