¿Cómo cambiar el tamaño de varias celdas para que quepan imágenes rápidamente en Excel?
Como sabemos, Microsoft Excel admite cambiar automáticamente el tamaño de la altura de la fila y el ancho de la columna de una celda para adaptarse al contenido completo, como una cadena de texto larga. Sin embargo, el comando Autoajustar altura de fila y el comando Autoajustar ancho de columna no son válidos para la imagen, porque una imagen insertada no reside en una celda específica.
Cambiar el tamaño de las celdas para que se ajusten a las imágenes con VBA
Cambiar el tamaño de las imágenes para que se ajusten a las celdas con Kutools para Excel 
Cambiar el tamaño de las celdas para que se ajusten a las imágenes con VBA
Suponiendo que hay dos imágenes grandes en una hoja de trabajo, vea la siguiente captura de pantalla. Es posible que alguien desee cambiar el tamaño de una celda para que quepa una imagen sobre la celda. ¿Pero cómo realizarlo?
Por supuesto, puede cambiar el tamaño de cada celda automáticamente para que quepan imágenes encima de ellas. Sin embargo, puede resultar tedioso y lento para varias imágenes. En realidad, podemos aplicar una macro VB para cambiar el tamaño de todas las celdas para que quepan imágenes encima de ellas. Puedes hacerlo con los siguientes pasos:
Paso 1: mantenga presionada la tecla ALT + F11 llaves, y abre el Microsoft Visual Basic para aplicaciones ventana.
Paso 2: Click recuadro > Móduloy pegue la siguiente macro en la ventana del módulo.
VBA: cambie el tamaño de varias celdas para que se ajusten 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 SubPaso 3: Presione el F5 clave 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 de arriba. Vea la siguiente captura de pantalla:
Cambiar el tamaño de las imágenes para que se ajusten a las celdas con Kutools para Excel
Si ha ajustado el tamaño de las celdas como se muestra a continuación, y luego desea importar y cambiar el tamaño de las imágenes para que se ajusten al tamaño de las celdas, ¿cómo puede hacerlo rápidamente? En este caso, Kutools for Excel's Importar imágenes La utilidad puede ayudarlo a manejar fácilmente este trabajo.
| Kutools for Excel, con más de 120 funciones prácticas, facilita su trabajo. | ||
Después de instalar Kutools para Excel, haga lo siguiente :(Descarga gratis Kutools para Excel ahora!)
1. Hacer clic en Empresa > Import / Export > Importar imágenes. Ver captura de pantalla:
2. En el estallido Importar imágenes cuadro de diálogo, puede especificar el orden de importación primero en Orden de importación sección y luego haga clic en Añada para agregar imágenes de la carpeta o como archivos una por una, luego puede ver que las imágenes están en la lista en el Imagen sección. Ver captura de pantalla:
3. Luego haga clic Importa botón para mostrar Importar tamaño de imagen diálogo, luego verifique Tamaño de celda a juego opción. Ver captura de pantalla:
4. Hacer clic en OK > Importa para mostrar un cuadro de diálogo para seleccionar las celdas que desea importar imágenes. Ver captura de pantalla:
5. Hacer clic en OK, y ahora todos los pirtcures se importan a las celdas y se redimensionan para ajustar las celdas.
Importar imágenes que coincidan con el tamaño de la celda
Artículo Relacionado:
¿Cómo insertar varias imágenes en una celda en Excel?
Las mejores herramientas de productividad de oficina
Mejore sus habilidades de Excel con Kutools for Excel y experimente la eficiencia como nunca antes. Kutools for Excel ofrece más de 300 funciones avanzadas para aumentar la productividad y ahorrar tiempo. Haga clic aquí para obtener la función que más necesita...
Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil
- Habilite la edición y lectura con pestañas en Word, Excel, PowerPoint, Publisher, Access, Visio y Project.
- Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
- ¡Aumenta su productividad en un 50% y reduce cientos de clics del mouse todos los días!
