¿Cómo ajustar rápidamente el tamaño de varias celdas para que se adapten a las imágenes en Excel?

Como sabemos, Microsoft Excel admite el ajuste automático de la altura de fila y el ancho de columna de una celda para que se ajuste al contenido llenado, como una cadena de texto larga. Sin embargo, los comandos Autoajustar Altura de Fila y Autoajustar Ancho de Columna no son válidos para imágenes, ya que una imagen insertada no reside en una celda específica.

Ajustar el tamaño de las celdas para adaptarlas a las imágenes con VBA

Ajustar el tamaño de las imágenes para adaptarlas a las celdas con Kutools para Excel

Ajustar el tamaño de las celdas para adaptarlas a las imágenes con VBA

Supongamos que hay dos imágenes grandes en una hoja de trabajo, ver la siguiente captura de pantalla. Alguien puede querer ajustar el tamaño de una celda para que se ajuste a una imagen sobre la celda. ¿Pero cómo lograrlo?

Por supuesto, puedes ajustar automáticamente cada celda para que se adapte a las imágenes que están encima. Sin embargo, puede ser tedioso y llevar mucho tiempo cuando hay muchas imágenes. En realidad, podemos aplicar una macro VB para ajustar todas las celdas para que se adapten a las imágenes que están encima. Puedes hacerlo siguiendo estos pasos:

Paso 1: Mantén presionadas las teclas ALT + F11, y se abrirá la ventana de Microsoft Visual Basic para Aplicaciones.

Paso 2: Haz clic en Insertar > Módulo, y pega la siguiente macro en la Ventana del Módulo.

VBA: Ajustar el tamaño de múltiples celdas para que se adapten a sus imágenes.

Sub ResizePictureCells()
For Each Picture In ActiveSheet.DrawingObjects
PictureTop = Picture.Top
PictureLeft = Picture.Left
PictureHeight = Picture.Height
PictureWidth = Picture.Width
For N = 2 To 256
If Columns(N).Left > PictureLeft Then
PictureColumn = N - 1
Exit For
End If
Next N
For N = 2 To 65536
If Rows(N).Top > PictureTop Then
PictureRow = N - 1
Exit For
End If
Next N
Rows(PictureRow).RowHeight = PictureHeight
Columns(PictureColumn).ColumnWidth = PictureWidth * (54.29 / 288)
Picture.Top = Cells(PictureRow, PictureColumn).Top
Picture.Left = Cells(PictureRow, PictureColumn).Left
Next Picture
End Sub

Paso 3: Presiona la tecla F5 para ejecutar esta macro.

Ahora, en la hoja de trabajo actual, si hay imágenes, la celda debajo de una imagen cambiará de tamaño para ajustarse a la imagen que está encima. Ver la siguiente captura de pantalla:

Ajustar el tamaño de las imágenes para adaptarlas a las celdas con Kutools para Excel

Si has ajustado el tamaño de las celdas como se muestra en la siguiente captura de pantalla, y luego quieres importar y ajustar el tamaño de las imágenes para que se adapten al tamaño de las celdas, ¿cómo lo puedes hacer rápidamente? En este caso, Kutools para Excel's Importar Imágenes la utilidad puede ayudarte a manejar fácilmente esta tarea.

Después de instalar Kutools para Excel, por favor haz lo siguiente:

1. Haz clic en Kutools Plus > Importar/Exportar > Importar Imágenes. Ver captura de pantalla:

2. En el cuadro emergente Importar Imágenes diálogo, primero puedes especificar el orden de importación en Orden de importación sección, y luego haz clic en el botón Agregar para agregar imágenes desde una carpeta o como archivos uno por uno, luego puedes ver que las imágenes se enumeran en la sección Imagen Ver captura de pantalla:

3. Luego haz clic en el botón Importar para mostrar el diálogo Tamaño de Imagen de Importación y marca la opción Tamaño de celda coincidente Ver captura de pantalla:

4. Haz clic en Aceptar > Importar para mostrar un diálogo donde seleccionarás las celdas donde deseas importar las imágenes. Ver captura de pantalla:

5. Haz clic en Aceptar, y ahora todas las imágenes se han importado en las celdas y se han redimensionado para ajustarse a las celdas.

Artículo relacionado:
¿Cómo insertar múltiples imágenes en una celda en Excel?