Eliminar formas y objetos automáticamente

[TREBUR]

Buenas noches...

En un libro abierto de excel presiono F5, luego el botón Especial..., selecciono la opción Objetos y presiono Aceptar.

Como resultado se obtiene una buena cantidad de formas u objetos que ponen lento el archivo, al punto de que No Responde por bastante tiempo haciendo imposible utilizarlo con normalidad.

¿Es posible suprimir con alguna MACRO esos objetos de tal manera que no relentice el archivo de excel?

[Héctor Miguel]

algunos objetos incrustados en hojas forman parte de colecciones de un tipo específico

si no te interesa afectar a unos u otros o a todos (?), prueba esta instrucción:

activesheet.drawingobjects.delete

si los objetos son "muchos", es probable que se tarde un pelín su eliminación (?)

saludos,
hector.

[TREBUR]

¿Cómo pruebo la instrucción Héctor? No soy experto...

[Héctor Miguel]

primero: deja esa hoja como activa y abre el editor de vba (atajo de teclado: Alt + F11)

op1:
- muestra la ventana de inmediato (atajo: Ctrl + G)
- copia/pega (o escribe) la instrucción y pulsa {enter}

op2:
- agrega un módulo de código estándar (insertar > módulo)
- copia/pega (o escribe) lo siguiente:

sub eliminaObjetos()
  activesheet.drawingobjects.delete
end sub

- regresa a excel
- pulsa Alt + F8
- selecciona la macro anterior y la ejecutas

saludos,
hector.

[TREBUR]

La macro se ejecuta rápidamente, sin embargo el archivo sigue igual de lento...

[Héctor Miguel]

es de suponer que estás probando sobre una copia de tu archivo (o cuentas con un respaldo "por si las dudas" ?)

1) este tipo de "cirugías" se aprecia cuando guardas > cierras > (RE)abres el archivo
2) si la lentitud sigue en su apogeo (probablemente) la causa viene de otras circunstancias
3) no es sencillo suponer (y acertar) sin contar con un modelo (+/- exactamente) "igual al tuyo" (?)

saludos,
hector.

[Gerson Pineda]

Hace 10 horas, Héctor Miguel dijo:

es de suponer que estás probando sobre una copia de tu archivo (o cuentas con un respaldo "por si las dudas" ?)

1) este tipo de "cirugías" se aprecia cuando guardas > cierras > (RE)abres el archivo
2) si la lentitud sigue en su apogeo (probablemente) la causa viene de otras circunstancias
3) no es sencillo suponer (y acertar) sin contar con un modelo (+/- exactamente) "igual al tuyo" (?)

saludos,
hector.

Algo por aqui

https://ayudaexcel.com/foro/topic/40004-eliminar-excesivo-uso-de-memoria/?tab=comments#comment-226156

y aqui

https://ayudaexcel.com/foro/topic/40157-deshabilitar-uso-en-exceso-de-memoria/?tab=comments#comment-227058

 

Saludos 

[Antoni]

Es evidente que lo que describes no tiene nada que ver con la realidad.

Sube tu archivo y veremos el porqué de la lentitud.

[Leopoldo Blancas]

 

Hay ocasiones que el archivo se "Daña" por virus, un error de office, etc. y lo más sano es copiar todo a un nuevo archivo... a mi me ha pasado varias veces últimamente... y una vez fue por que se fue la luz y no tenia NoBreake en esa máquina y al encenderla otra vez mi archivo Lento, lento... pero así lo resuelvo y las macros que se demoraban hasta 15 segundos ahorita no se tardan ni un segundo.

O hay muchas hojas, columnas, filas... con formatos.... etc...

Saludos.

[TREBUR]

Saludos Gerson, Leopoldo, Antoni y demás compañeros...

Gerson, Leopoldo... en esa ocasión la alternativa que ustedes publicaron funcionó. De hecho, ese archivo era muy similar al que me estoy refiriendo en éste tema y me alisto a colocarlo a petición de Antoni para que le echen un vistazo. Todo parece bien al abrir el archivo, pero al tratar de aplicar un Filtro, por ejemplo, se nota que el procesamiento es lento, al punto de llegar a No Responder...

Clic para descargar: https://we.tl/t-rKDvj2QFk4

[Antoni]

Tu  hoja NOMINA tiene 3.547 objetos, no te extrañe pues, si tarda un poquito en seleccionarlos.

Sub CantidadObjetos()
MsgBox ActiveSheet.Shapes.Count
End Sub

Sub EliminarObjetos()
ActiveSheet.Shapes.SelectAll
Selection.Delete
End Sub

 

Hace 19 horas, Antoni dijo:

Es evidente que lo que describes no tiene nada que ver con la realidad.

Sube tu archivo y veremos el porqué de la lentitud.

Pues parece que si tenía que ver, pero quien iba a imaginar que tuvieras tal cantidad de objetos incrustados.

En cualquier caso, si hubieras subido el archivo al inicio, nos hubieramos ahorrado un montón de tiempo.

[TREBUR]

¿Tú probaste la macro Antoni?

Estaba revisando antes de comentar, probé la macro, pero igual, tan solo apliqué Filtro y  sigue la lentitud...

 

[Leopoldo Blancas]

@TREBUR,

Tu archivo esta "TOCADO", tiene un daño irrecuperable, pase la información a otro archivo y se demora solo 5s en filtrar, quitando las formulas y las formas y solo poniendo valores se tarda 3s en la maquina lenta, en la rápida solo 1s.

Saludos.

[TREBUR]

Pero no puedo dejar el archivo sin fórmulas, son necesarias...

[Antoni]

No es un problema de las fórmulas, es un problema de la hoja y/o archivo.

He copiado los datos y las fórmulas a otro archivo y funciona sin problemas.

Hoja NOMINA con datos y fórmulas

[Leopoldo Blancas]

No es problema las formulas... el problema es tu archivo TOCADO=DAÑADO.

Ya te respondió Antoni.

Saludos.

[Leopoldo Blancas]

Tarda un pestañozo...!!!

Saludos.

[isidrod]

disculpa que meta en este tema, pero volviendo al tema de los objetos,  que de cierta fila en empiece a eliminar como seria ? gracias expertos

saludos isidro

[TREBUR]

Quizá no me supe explicar, pero el archivo solo es funcional sin la lentitud que arroja. Lo demás es primordial, la idea no es copiarlo y pegarlo en otra hoja puesto que dispone de varias detallitos que son importantes, hay comentarios, hay fórmulas, hay condiciones, entre otras cosas. Desde el primer momento noté la cantidad de objetos que tenía, y con las macros que ustedes han colocado no se ha solventado el problema...

[Leopoldo Blancas]

Hace 1 hora, TREBUR dijo:

Desde el primer momento noté la cantidad de objetos que tenía, y con las macros que ustedes han colocado no se ha solventado el problema...

POR QUE EL ARCHIVO ESTA DAÑADO... POR ESO NO ELIMINA TODOS LOS OBJETOS Y SE MANTIENE EL PROBLEMA....

Saludos.

[Antoni]

Hace 17 horas, isidrod dijo:

disculpa que meta en este tema, pero volviendo al tema de los objetos,  que de cierta fila en empiece a eliminar como seria ? gracias expertos

saludos isidro

Sub EliminarObjetosDesdeFila()
For Each Objeto In ActiveSheet.Shapes
   If Objeto.TopLeftCell.Row > 5 Then Objeto.Delete 'Elimina objetos despues de la fila 5
Next
End Sub

 

[isidrod]

gracias @Antoni eres un genio

saludos isidro

[Gerson Pineda]

Hace 17 horas, TREBUR dijo:

Quizá no me supe explicar, pero el archivo solo es funcional sin la lentitud que arroja. Lo demás es primordial, la idea no es copiarlo y pegarlo en otra hoja puesto que dispone de varias detallitos que son importantes, hay comentarios, hay fórmulas, hay condiciones, entre otras cosas. Desde el primer momento noté la cantidad de objetos que tenía, y con las macros que ustedes han colocado no se ha solventado el problema...

Entonces tienes que ir uno por uno [de esos detallitos], ya que como indicas, ninguna macro te ha funcionado

Y ya van varios temas de tu parte con lo mismo

 

Saludos 

[laion264]

En 11/12/2018 at 22:50 , Héctor Miguel dijo:

primero: deja esa hoja como activa y abre el editor de vba (atajo de teclado: Alt + F11)

op1:
- muestra la ventana de inmediato (atajo: Ctrl + G)
- copia/pega (o escribe) la instrucción y pulsa {enter}

op2:
- agrega un módulo de código estándar (insertar > módulo)
- copia/pega (o escribe) lo siguiente:

sub eliminaObjetos()
  activesheet.drawingobjects.delete
end sub

- regresa a excel
- pulsa Alt + F8
- selecciona la macro anterior y la ejecutas

saludos,
hector.

Tengo dos problemas similares, por culpa de unos objetos la hoja está lenta, en un archivo si me sirvió mucho este módulo. Gracias.