Jump to content
paikerr

MACRO PARA BORRAR IMÁGENES

Recommended Posts

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 by paikerr

Share this post


Link to post
Share on other sites
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 by Antoni

Share this post


Link to post
Share on other sites

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

Share this post


Link to post
Share on other sites
Guest
This topic is now closed to further replies.



×
×
  • Create New...

Important Information

Privacy Policy


CTA Templates.png