Eliminar imagenes

Hola Fran,

Prueba estos dos codigos:

Sub test()
Dim sh As Shape
With ActiveSheet
For Each sh In .Shapes
If sh.Top >= .Rows(45).Top Then sh.Delete
Next sh
End With
End Sub

Sub test2()
Dim sh As Shape
With ActiveSheet
For Each sh In .Shapes
If sh.Type = msoPicture And _
sh.Top >= .Rows(45).Top Then sh.Delete
Next sh
End With
End Sub


Saludos,
KL


"Fran" wrote in message news:
¿Alguien me puede ayudar?
Necesitaría hacer una macro que eliminara todas las imágenes que hay
por debajo de por ejemplo la fila 44.