Foro Excel

Esta macro es muy útil para eliminar y borrar todas las imágenes (shapes, images) de todas las hojas.

Código: Seleccionar todo

Sub shapekiller()
Dim ws As Worksheet
Dim SH As Shape

  For Each ws In Worksheets
      For Each SH In ws.Shapes
          SH.Delete
      Next
  Next

End Sub

Salu2.xls

Uno de los Loops puede evitarse, así:

Sub shapekiller()
Dim ws As Worksheet
For Each ws In Worksheets
ws.Shapes.SelectAll
Selection.Delete
Next
End Sub

GALILEOGALI
http://excelgali.mejorforo.net/

También puede ser útil:

Código: Seleccionar todo

Activesheet.DrawingObjects.Delete

¡Atención! Borra todos los objetos incrustados en la hoja, incluidos gráficos y controles.

Hola:

He comprobado que la macro borra imágenes y dibujos, y además todos los demás objetos incrustados.
Buscando en mi "baul" he encontrado la forma de restringir el tipo de objeto a eliminar.
Os adjunto la macro con los añadidos.

Código: Seleccionar todo

Sub shapekiller()
On Error Resume Next
Dim ws As Worksheet
Dim SH As Shape

  For Each ws In Worksheets
    If ws.CodeName <> "Licencia" Then
      For Each SH In ws.Shapes
          If SH.Type = 1 Then SH.Delete  'Dibujos
          If SH.Type = 9 Then SH.Delete  'Líneas y flechas
          If SH.Type = 12 Then SH.Delete 'Controles VBA
          If SH.Type = 13 Then SH.Delete 'Imágenes
          If SH.Type = 15 Then SH.Delete 'WordArt
          If SH.Type = 17 Then SH.Delete 'Cuadros de texto
      Next
    End If
  Next

End Sub


Supongo que debe haber mas tipos, si alguien sabe de alguno mas que los vaya añadiendo.

Salu2 a to2...to2

Antoni