Borrar SHAPES

12/11/2003 - 19:45 por Raul_S | Informe spam

Hola grupo:

Quisiera saber como hago para borrar un montos de imagenes
de golpe, las tengo todas seleccionadas con

ActiveSheet.Shapes.SelectAll
pero me lata borrarlas y no se como

Mil gracias a todos

Siga el debate

4 respuestas

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

12/11/2003 - 20:28 | Informe spam

Hola, Raul !

... como ... borrar ... imagenes de golpe ... todas seleccionadas con
ActiveSheet.Shapes.SelectAll [...]

la manera mas 'rapida' [sin decir... 'agua va']
ActiveSheet.Shapes.SelectAll
Selection.Delete

saludos,
Héctor.

Responder a este mensaje

#2 Raul_S

12/11/2003 - 23:27 | Informe spam

Hola Hector:

Gracias lo tuyo funciona pero el problema es que solo lo
hace si la hoja es nueva, en la mia que es una hoja
grande se queda sin memoria.
" Error 7 en tiempo de ejecucion"
" Memoria insuficiente"
Pongo las dos lineas en una hoja nueva y funciona
perfecto pero mi hoja no le gusta mucho.

El error se da en la selección directamente.
Se te ocurre alguno de esos trucos que suelen sacar de la
manga????

Gracias Raul

Responder a este mensaje

#3 Rene Moreno

13/11/2003 - 00:40 | Informe spam

Trata con esto:

For Each shp In ActiveSheet.Shapes
shp.Delete
Next

Saludos
Rene Moreno

____________________________________________________
Para responder elimine el texto NOSPAM de la dirección de envío
"Raul_S" escribió en el mensaje
news:035701c3a96c$265ac1b0$

Hola Hector:

Gracias lo tuyo funciona pero el problema es que solo lo
hace si la hoja es nueva, en la mia que es una hoja
grande se queda sin memoria.
" Error 7 en tiempo de ejecucion"
" Memoria insuficiente"
Pongo las dos lineas en una hoja nueva y funciona
perfecto pero mi hoja no le gusta mucho.

El error se da en la selección directamente.
Se te ocurre alguno de esos trucos que suelen sacar de la
manga????

Gracias Raul

Responder a este mensaje

#4 RAUL_S

14/11/2003 - 18:17 | Informe spam

Ahra si que funciona, un millon de gracias

Trata con esto:

For Each shp In ActiveSheet.Shapes
shp.Delete
Next

Saludos
Rene Moreno

____________________________________________________
Para responder elimine el texto NOSPAM de la dirección de

envío

"Raul_S" escribió

en el mensaje

news:035701c3a96c$265ac1b0$

Hola Hector:

Gracias lo tuyo funciona pero el problema es que solo lo
hace si la hoja es nueva, en la mia que es una hoja
grande se queda sin memoria.
" Error 7 en tiempo de ejecucion"
" Memoria insuficiente"
Pongo las dos lineas en una hoja nueva y funciona
perfecto pero mi hoja no le gusta mucho.

El error se da en la selección directamente.
Se te ocurre alguno de esos trucos que suelen sacar de la
manga????

Gracias Raul

.

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida