¿Cómo cambiar el tamaño de las imágenes para que se ajusten a las celdas en Excel?

Las imágenes insertadas normalmente flotan sobre las celdas, y la mayoría de las veces una imagen cubre muchas celdas. Si una hoja de trabajo tiene una gran cantidad de imágenes, es posible que desee colocar cada imagen en una sola celda. Pero, ¿cómo afrontarlo? En realidad, hay varias formas complicadas de ayudarnos a cambiar el tamaño de las imágenes para que se ajusten al tamaño de las celdas rápidamente.

Cambiar el tamaño de una imagen seleccionada para que se ajuste a una sola celda con VB Macro

Cambiar el tamaño de las imágenes insertadas para que se ajusten a las celdas con Kutools para Excel

Cambiar el tamaño de una imagen seleccionada para que se ajuste a una sola celda con VB Macro

Podemos aplicar macros VB para cambiar el tamaño de una imagen seleccionada para que se ajuste a una sola celda, pero no cambiar manualmente el ancho y la altura de una imagen. Puedes hacerlo con los siguientes pasos:

Paso 1: Inserte las imágenes en una hoja de trabajo y seleccione una imagen a la que le cambiará el tamaño para que quepa en una sola celda.

Paso 2: mantenga presionada la tecla ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.

Paso 3: Click recuadro > Móduloy pegue la siguiente macro en la ventana del módulo.

VBA: cambia el tamaño de una imagen seleccionada para que se ajuste a una celda.

Public Sub FitPic()
On Error GoTo NOT_SHAPE
Dim PicWtoHRatio As Single
Dim CellWtoHRatio As Single
With Selection
PicWtoHRatio = .Width / .Height
End With
With Selection.TopLeftCell
CellWtoHRatio = .Width / .RowHeight
End With
Select Case PicWtoHRatio / CellWtoHRatio
Case Is > 1
With Selection
.Width = .TopLeftCell.Width
.Height = .Width / PicWtoHRatio
End With
Case Else
With Selection
.Height = .TopLeftCell.RowHeight
.Width = .Height * PicWtoHRatio
End With
End Select
With Selection
.Top = .TopLeftCell.Top
.Left = .TopLeftCell.Left
End With
Exit Sub
NOT_SHAPE:
MsgBox "Select a picture before running this macro."
End Sub

Paso 4: Presione el F5 clave para ejecutar esta macro.

Paso 5: Repita los pasos anteriores para cambiar el tamaño de otras imágenes para que quepan en una sola celda.

Ahora todas las imágenes insertadas cambian de tamaño y encajan en las celdas. Vea la siguiente captura de pantalla:

Note: Puede cambiar el tamaño de una sola imagen una vez. Si selecciona más de una imagen una vez, aparecerá un cuadro de diálogo de advertencia.

Cambiar el tamaño de las imágenes insertadas para que se ajusten a las celdas con Kutools para Excel

Si tiene Kutools for Excel instalado, puede aplicar su Importar imágenes herramienta para cambiar el tamaño de todas las imágenes para que se ajusten a las celdas o con una altura fija durante la inserción de imágenes.

Kutools for Excel incluye más de 300 útiles herramientas de Excel. Prueba gratis sin límite en 30 días. Comprar ahora .

Paso 1: Seleccione las celdas de rango en las que desea insertar imágenes y haga clic en el Kutools Más >Import / Export > Importar imágenes. Vea la siguiente captura de pantalla:

Paso 2: en el Importar imágenes cuadro de diálogo, seleccione el orden de inserción en la lista desplegable y haga clic en Añadir el archivo para agregar las imágenes que necesita del archivo o carpeta, luego haga clic en Tamaño botón. Ver captura de pantalla:

Paso 3: Verificar Tamaño de celda a juego opción. Luego haga clic Ok > Importa para cerrar los diálogos. Ver captura de pantalla:

Ahora puede ver que las imágenes están insertadas para ajustarse a las celdas.

Note: También puede especificar la altura y el ancho de la celda en el paso 3 para cambiar el tamaño de las imágenes.

Si quieres saber más sobre esto Importar imagen característica, visite aquí.

Artículo Relacionado:

¿Cómo cambiar el tamaño de varias celdas para que quepan imágenes encima de ellas rápidamente en Excel?