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.

Usa un bucle para recorrer las hojas:

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

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]

Probado, adaptado y funcionando

Gracias MacroAntonio

Tema resuelto!!!!

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

Ok, Gracias

SOLUCIONADO