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.

Editado el el 13 de noviembre6 años por paikerr

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

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

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.

Editado el el 13 de noviembre6 años por Antoni

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

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.