Macro eliminar imágenes

Hola. He hecho una macro que coge de una carpeta las imágenes, según ciertos paramtros puestos en celdad de mi hoja, e inserta las imágenes. Ahora quería hacer una que me eliminara dichas imágenes( una función limpia). Lo he intentado con la grabadora de macros, (selecciono las imágenes y suprimo). Pero cuando vuelvo a insertar otras imágenes y luego le doy a limpiar me da error. Yo pienso que es porque cuando lo hago con la grabadora se hace para esas imágenes, que tienen asociadas un numero concreto.
Como lo podría arreglar para que de forma genérica me coja las imágenes insertadas.
La forma de insertar imágenes lo hice con Shapes.AddPicture.
Gracias!

1 respuesta

1
Respuesta de
Hola:
Te dejo una rutina para eliminar los Picture:
Sub EliminaImagenes()
'macro desarrollada por Elsamatilde 26/05/08
'http://galeon.com/aplicaexcel
N = ActiveSheet.Shapes.Count
For i = N To 1 Step -1
'controla el tipo de objeto y elimina si se trata de Picture
On Error Resume Next
ActiveSheet.Shapes(i).Select
If Left(ActiveSheet.Shapes(i).Name, 7) = "Picture" Or Left(ActiveSheet.Shapes(i).Name, 5) = "Image" Then
ActiveSheet.Shapes(i).Delete
End If
Next
End Sub
Saludos
Elsa
http://galeon.com/aplicaexcel
Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje