Eliminar todos los objetos de todas las hojas de un libro
publicado
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.
Featured Replies
Archivado
Este tema está ahora archivado y está cerrado a más respuestas.
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
Agradezco la ayuda.
Gracias.