MACRO PARA BORRAR IMÁGENES

[paikerr 13]

Hola a todxs,

 

Necesito una macro para borrar sólo las imágenes.

Diariamente descargo una serie de datos desde una página web de Internet, y se me importa también la galería de imágenes en mi hoja de datos activa de Excel.

El problema es que ya ejecuto una macro para tal fin a través de un botón de formulario, pero se me borra el control ActiveX porque no consigo cómo hacer para eliminar sólo las imágenes.

 

Adjunto el archivo para su comprobación: https://www.dropbox.com/s/yz9vgngnj0zofcb/IMAGENES.xlsm?dl=0

Muchas gracias de antemano por vuestro tiempo.

Edited November 13, 2018 by paikerr

[Haplox 1,125]

No he entendido nada... donde tienes el activex? En la hoja?

Quieres eliminer la imagen del activex o el propio fichero d la foto

[Antoni 4,606]

Sub EliminarIMAGENES()
For Each imagen In ActiveSheet.Shapes
    If imagen.Type = msoPicture Then imagen.Delete
Next
End Sub

Código encontrado en Google ponoendo delete all images vba, a ver si nos lo curramos un poco más.

Edited November 13, 2018 by Antoni

[paikerr 13]

Efectivamente @Antoni, con la macro anterior logro eliminar todas las imágenes.

Pero a continuación me surje otro problema, y es que no consigo eliminar todos las etiquetas de selección HTML. Creo que el programa en sí mismo lo considera como un cuadro de lista del propio Excel...

Ver imagen adjunta: https://www.dropbox.com/s/wlxg3bfxc5fir2y/Macro para borrar imágenes.jpg?dl=0

[paikerr 13]

Pero bueno, esto último ya sería algo para rizar el rizo.

Lo que más me importa es eliminar todas las imágenes.

 

Gracias.