Consejo: Otros idiomas son traducidos por Google. Puedes visitar el English versión de este enlace.
Iniciar sesión
x
or
x
x
Suscríbete
x

or

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

Normalmente, las imágenes insertadas 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, puede colocar cada imagen en una sola celda. Pero, ¿cómo lidiar con eso? En realidad, hay varias formas complicadas de ayudarnos a cambiar el tamaño de las imágenes para adaptarlas al tamaño de las celdas rápidamente.

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

Redimensiona las imágenes insertadas para que quepan en las celdas con Kutools para Excel

Ficha Office Habilite la edición y navegación con pestañas en Office y haga su trabajo mucho más fácil ...
Kutools para Excel: la mejor herramienta de productividad de Office resolverá la mayoría de sus problemas de Excel
  • Reutilizar cualquier cosa: Agregue las fórmulas más utilizadas o complejas, gráficos y cualquier otra cosa a sus favoritos, y reutilícelos rápidamente en el futuro.
  • Más de características de texto 20: Extraer número de la cadena de texto; Extraer o eliminar parte de los textos; Convertir números y monedas a palabras en inglés ...
  • Herramientas de fusión: Múltiples libros de trabajo y hojas en uno; Fusionar múltiples celdas / filas / columnas sin perder datos; Combinar filas duplicadas y sumar ...
  • Herramientas divididas: Dividir datos en varias hojas en función del valor; Un libro de trabajo para múltiples archivos Excel, PDF o CSV; De una columna a varias columnas ...
  • Saltar pasta Filas ocultas / filtradas; Cuenta y suma por color de fondo; Crear lista de correo y Enviar correos electrónicos por el valor de la celda...
  • Súper filtro: Cree esquemas de filtro avanzados y aplique a cualquier hoja; Tipo de Propiedad por semana, día, frecuencia y más; Filtrar por negrita, fórmulas, comentario ...
  • Más de potentes funciones de 300; Funciona con Office 2007-2019 y 365; Soporta todos los idiomas; Fácil despliegue en compañía; Funciones completas de prueba gratuita de 60-day.

flecha azul burbuja derecha Cambiar el tamaño de una imagen seleccionada para adaptarse a una sola celda con Macro VB


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

Paso 1: inserte las imágenes en una hoja de trabajo y seleccione una imagen que va a cambiar de tamaño para que se ajuste a una sola celda.

doc-resize-pictures-to-fit-cells1

Paso 2: mantenga presionada la tecla ALT + F11 llaves, y abre la 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 se ajustan a las celdas. Ver la siguiente captura de pantalla:

doc-resize-pictures-to-fit-cells2

Nota: 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.


flecha azul burbuja derecha Redimensiona las imágenes insertadas para que quepan en las celdas con Kutools para Excel

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

Kutools for Excel incluye más de las útiles herramientas de Excel de 300. Gratis para probar sin limitaciones en los días 30. Get it Now.

Paso 1: seleccione las celdas de rango en las que desea insertar imágenes y haga clic en Empresa >Import / Export > Importar imágenes. Ver la siguiente captura de pantalla:

doc-resize-picture-to-fit-cell-1

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 para agregar imágenes que necesita de un archivo o carpeta, luego haga clic Talla botón. Ver captura de pantalla:

doc-resize-picture-to-fit-cell-2

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

doc-resize-picture-to-fit-cell-3

Ahora puede ver que las imágenes se insertan para ajustarse a las celdas.

doc-resize-picture-to-fit-cell-4

Nota: 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, por favor visite aquí.


Artículo relacionado:

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


Kutools for Excel: la mejor herramienta de productividad de Office aumenta su productividad en un 80%

  • Reutilizar: Insertar rápidamente fórmulas complejas, gráficos y cualquier cosa que hayas usado antes; Cifrar celdas con contraseña Crear una lista de correo y enviar correos electrónicos ...
  • Super Formula Bar (edite fácilmente varias líneas de texto y fórmula); Diseño de lectura (lee y edita fácilmente un gran número de celdas); Pegar en rango filtrado...
  • Combinar celdas / filas / columnas sin perder datos; Contenido de celdas divididas; Combinar filas / columnas duplicadas... Prevenir células duplicadas; Comparar rangos...
  • Seleccione Duplicado o Único Filas; Seleccionar filas en blanco (todas las celdas están vacías); Super Find y Fuzzy Find en muchos libros de trabajo; Selección aleatoria ...
  • Copia exacta Celdas múltiples sin cambiar la referencia de fórmula; Crear referencias automáticamente a múltiples hojas; Insertar viñetas, Casillas de verificación y más ...
  • Extracto del texto, Agregar texto, Eliminar por posición, Eliminar espacio; Crear e imprimir subtotales de paginación; Convertir entre contenido de celdas y comentarios...
  • Súper filtro (guardar y aplicar esquemas de filtro a otras hojas); Clasificación avanzada por mes / semana / día, frecuencia y más; Filtro especial por negrita, cursiva ...
  • Combinar libros de trabajo y hojas de trabajo; Combinar tablas basadas en columnas clave; Dividir datos en varias hojas; Conversión por lotes xls, xlsx y PDF...
  • Más de potentes funciones de 300. Admite Office / Excel 2007-2019 y 365. Soporta todos los idiomas. Fácil implementación en su empresa u organización. Funciones completas de prueba gratuita de 60-day.
pestaña kte 201905

Office Tab lleva la interfaz con pestañas a Office y hace que su trabajo sea mucho más fácil

  • Habilitar la edición y lectura con pestañas en Word, Excel, PowerPoint, Editor, Acceso, Visio y Proyecto.
  • Abra y cree varios documentos en nuevas pestañas de la misma ventana, en lugar de en nuevas ventanas.
  • ¡Aumenta tu productividad en un 50% y reduce cientos de clics de ratón por ti todos los días!
fondo officetab
Say something here...
symbols left.
You are guest ( Sign Up? )
or post as a guest, but your post won't be published automatically.
Loading comment... The comment will be refreshed after 00:00.
  • To post as a guest, your comment is unpublished.
    Syed Waqas Gillani · 6 months ago
    Hi..
    perfact solution. But i want that function to work with command button. i need to make a command button to insert and auto resize to cell size. please help.
  • To post as a guest, your comment is unpublished.
    Shripad Lale · 2 years ago
    Brilliant! Works great! Just what I was looking for! Thank you!
  • To post as a guest, your comment is unpublished.
    claus · 2 years ago
    it works if the cells are not merged. unfortunately, I merged some cells and it fits only in the upper left cell which makes the photo very tiny.
  • To post as a guest, your comment is unpublished.
    Harry · 3 years ago
    Hi, I really love this macro that makes images fit cells, it really helped me with some work stuff. But does anyone know how to write this code for applescript? I have to use macs and the apple version of excel, Numbers, only uses applescript.
    Help!
    Many thanks,
    Harry
  • To post as a guest, your comment is unpublished.
    Carol · 3 years ago
    Thanks it did work but I have about 500 pictures so I don't want to do them one at a time - how do I do them all at the same time please?
  • To post as a guest, your comment is unpublished.
    Marcelo · 4 years ago
    Works!!
    But i have one question, i want to fit a img in a range of cells merged, how can i do it?
    • To post as a guest, your comment is unpublished.
      Nick · 1 years ago
      Public Sub FitPic()
      'https://www.extendoffice.com/documents/excel/1060-excel-resize-picture-to-fit-cell.html
      'Slight modification to resize into merged cells
      On Error GoTo NOT_SHAPE
      Dim PicWtoHRatio As Single
      Dim CellWtoHRatio As Single
      With Selection
      PicWtoHRatio = .Width / .Height
      End With
      With Selection.TopLeftCell
      CellWtoHRatio = .MergeArea.Width / .MergeArea.Height
      End With
      Select Case PicWtoHRatio / CellWtoHRatio
      Case Is > 1
      With Selection
      .Width = .TopLeftCell.MergeArea.Width
      .Height = .Width / PicWtoHRatio
      End With
      Case Else
      With Selection
      .Height = .TopLeftCell.MergeArea.Height
      .Width = .Height * PicWtoHRatio
      End With
      End Select
      With Selection
      .Top = .TopLeftCell.MergeArea.Top
      .Left = .TopLeftCell.MergeArea.Left
      .Placement = xlMoveAndSize
      End With
      Exit Sub
      NOT_SHAPE:
      MsgBox "Select a picture before running this macro."
      End Sub
    • To post as a guest, your comment is unpublished.
      Christina · 3 years ago
      [quote name="Marcelo"]Works!!
      But i have one question, i want to fit a img in a range of cells merged, how can i do it?[/quote]

      Marcelo did you get the updated marco for the merged cell? I am trying to do the same thing.

      thanks
  • To post as a guest, your comment is unpublished.
    Monika · 4 years ago
    Thank you this was perfect!!
  • To post as a guest, your comment is unpublished.
    lucy · 5 years ago
    Instructions for Excel
  • To post as a guest, your comment is unpublished.
    Jim Abramczyk · 5 years ago
    FitPic macro noted above is Sweeeeeet!
    I took a bunch of pictures of garage sale items that eventually went to Salvation Army. I documented pictures and values in Excel tax purposes. This macro worked first time! :lol: