Eliminar formas de Excel

Cómo eliminar varias formas de manera simultánea en Excel

En esta publicación le voy a mostrar cómo borrar varias formas en Excel de manera simultánea. Las formas pueden ser gráficos, imágenes, objetos, entre otros.

Hay ocasiones en que un archivo de Excel tiene un gran peso debido a todas las formas que contiene. Hace poco tenía una hoja con un peso de 43 megas y alrededor de 500,000 formas. Una vez borrada, todo el archivo quedó pesando 1.44 megas.

Esto lo vamos a hacer de dos formas o maneras, la primera utilizando la función de buscar de Excel y la otra utilizando Macro.

Si deseas puedes ver el video siguiente o seguir leyendo el instructivo en el artículo.

Opción 1

Utilizando función Buscar de Excel

  1. Para esto podemos presionar la tecla F5 a nuestro teclado y se nos abrirá un recuadro.
  2. Luego pinchamos la opción que dice especial que está en la esquina inferior izquierda del recuadro.
  3. El siguiente paso seleccionamos la opción objeto y aceptar 

Cuando hagas esto notarás que todas las formas fueron seleccionadas, si hay alguna de ellas que no quieres eliminar, simplemente con la tecla Ctrl presionada das un clic en la que deseas dejar y esa perderá la selección.

Para borrar puedes dar a DELETE en el teclado o con el mouse un clic derecho y cortar y listo todas las formas seleccionadas estarán borradas.

Cabe destacar que esta opción también es útil si quieres copiar y pegar todas las formas de un archivo a otro o a otra hoja de Excel.

Opción 2

Utilizar Macro para contar y eliminar formas

Para esta opción tenemos tener habilitado la opción desarrollador en nuestro Excel, esto desplegará las funciones para el modo de programación.

Si no lo tienes habilitado, solamente tienes seguir los siguientes pasos:

Tiene que ir a Archivo – Opciones – Personalizar cinta de opciones y busca el cuadro de desarrollador, selecciónala das a aceptar. Esto habilitar las opciones Programado en la barra superior. 

Una vez desplegada las opciones de programador ve a visual basic, ábrelo e inserta un nuevo módulo (clic derecho e insertar nuevo módulo), en este nuevo módulo simplemente copia y pega los códigos que te dejaré a continuación.

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

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

Una vez hecho esto ve la opción Macros y verás dos Macro desplegados, el primero CONTAR_FORMAS y la siguiente ELIMINAR_FORMAS selecciónala y ejecuta la opción de tu preferencia,

La primera contará todas las formas en la hoja seleccionada y la segunda eliminará todas las formas de la hoja seleccionada.

Muchas Gracias por leer esta publicación, espero que te sea de gran ayuda.

Publicaciones Similares