Imagen insertada

Hola, Memo !

... en un archivo ... inserte una imagen ... inexplicablemente ... ya son 3500, una encima de otra
... el archivo ha crecido ... de 300 Kb a 12 Mb ...

==> ¿Estas insertando imagenes por codigo???
Seria bueno "primero" eliminar las anteriores (a menos que las necesites conservar)

he estado eliminando imagen por imagen ... como borarlas toas al mismo tiempo.

==> Si estas seguro de que son los UNICOS objetos incrustados en la hoja, algunas opciones...
1) Para seleccionar (y despues eliminar) TODOS los objetos incrustados [en cada una de las hojas]
{F5} o Edicion -> Ir a...
{boton} Especial...
{en Opciones de seleccion} elije "Objetos"
{Aceptar}

2) Con una macro como la siguiente, podras eliminar CUALQUIER objeto del tipo...:
"imagen" (msoPicture) o incrustado (como las imagenes prediseñadas Y OTROS del tipo "OLE") ==Sub Eliminar_Imagenes()
Dim Fig As Shape
For Each Fig In ActiveSheet.Shapes
Select Case Fig.Type
Case msoPicture: Fig.Delete
Case msoEmbeddedOLEObject: Fig.Delete
End Select
Next
End Sub
_______
Saludos,
Héctor.
MS-MVP