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.

Con estos codigos creo que siempre se eliminan las imagenes y yo lo que
quiero es que si ejecuto una macro se eliminen y si no, no se eliminen

Si no ejecutas estas macros expresamente, no se eliminara nada. ?O te refieres a otra cosa? Quizas tengas que explicarlo con un poco
mas de detalle (precisamente hoy se me ha roto la bola de cristal)

Saludos,
KL


"Fran" wrote in message news:

Con estos codigos creo que siempre se eliminan las imagenes y yo lo que
quiero es que si ejecuto una macro se eliminen y si no, no se eliminen

Ya lo he conseguido hacer. Pero no se si es posible hacer que borre de
la fila 45 a la 100

Algo asi:

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


Saludos,
KL


"Fran" wrote in message news:

Ya lo he conseguido hacer. Pero no se si es posible hacer que borre de
la fila 45 a la 100