Ayuda. Borrar las imágenes de una hoja

[Txinaurri]

Hola sabios:

¡De nuevo atascado!

Estoy desarrollando una aplicación en la que, mediante una macro, recoge automáticamente una serie de imágenes y las coloca en una hoja para imprimirlas.

El...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Envia, si es pesado, la parte del archivo donde haces el proceso.No es necesaro que envies los archivos de imagen.

 

[ST]

prueba con:

Sub Eliminar_Imagenes()
For Each S In ActiveSheet.Shapes
   S.Delete
Next
End Sub

o con esta otra

Sub Eliminar_Imagenes_2()
   ActiveSheet.Shapes.SelectAll...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

ST:
la idea es buena y probablemente funcione, pero que ocurre si existieran otros SHAPES que no solo contenedores de imagenes?'¿Y si el boton con el que corre la Macro que vos propones le fuera...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ioyama]

Hola a todos

Yo suelo usar la primera opción preesentada por ST, pero modificada tal que

Sub Eliminar_Imagenes()
For Each S In ActiveSheet.Shapes
If Left(S.Name, 3) = "Rec" Then S.Delete...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

La macro de Ioyama va directamente hacia donde yo pensaba....pero sigo insistiendo: nada mejor que con la hoja a la vista......

 

[sailepaty]

Coincido con Galileo que serí­a mejor ver la hoja, pero mientras esperamos.

Sub Eliminar_Imagenes()
    For Each s In ActiveSheet.Shapes
       If s.Type = 13 Then s.Delete
    Next sImg
End...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[ST]

ciertamente Gali,tomaba cuenta de ello al volver a leer tu comentario,pero ya habia subido mi respuesta
parece que aun no logro 'curarme' del todo de la 'implusitis' a contestar/responder una...

Para poder visualizar el resto de este tema y sus adjuntos:
. Si nunca te has registrado puedes registrarte gratis aquí
. Si ya te has registrado debes iniciar sesión aquí

 

[galileogali]

Hay casos y casos....
pero este tiene sus repercusiones, ya que se trata de una Herramienta del grupo Erase,Delete,Kill, que son una Banda... de temer........

 

[Txinaurri]

Muchas gracias por vuestras respuestas. Sois geniales.

He utilizado una de las soluciones que propone ST.

En todo caso os enví­o el archivo completo para que lo ojeeis.

Saludos