Este artículo fue coescrito por Darlene Antonelli, MA. Darlene Antonelli es escritora y editora de tecnología para wikiHow. Darlene tiene experiencia dando cursos universitarios, escribiendo artículos relacionados con la tecnología y trabajando en el campo de la tecnología. Obtuvo una maestría en escritura en la Universidad de Rowan en 2012 y escribió su tesis sobre las comunidades en línea y las personalidades seleccionadas en dichas comunidades.
Si deseas agregar una imagen o un logotipo a una hoja de Excel para que luzca más atractiva visualmente, continúa leyendo. Aunque no existe una configuración automática que sirva para cambiar el tamaño de una imagen dentro de una celda, puedes lograrlo por tu cuenta con solo unos cuantos clics. En este artículo, se te enseñará a insertar imágenes en Excel y adaptar su tamaño para que quepan en las celdas.
Pasos
-
1Abre el libro en Microsoft Excel. Puedes hacerlo dirigiéndote a Archivo > Abrir en Excel o hacer clic derecho en el archivo del proyecto y seleccionar Abrir con > Excel.
-
2Inserta una imagen. Puedes hacerlo dirigiéndote a Insertar > Imágenes > Seleccionar una imagen > Insertar.
-
3Redimensiona la imagen. Una vez que hayas seleccionado la imagen, verás la categoría “Tamaño” en “Formato” y “Herramientas de imagen”.
- Cambia el Alto y el Ancho para ajustar el tamaño de la imagen. También puedes arrastrar y soltar las esquinas de la imagen para adaptar el tamaño.
-
4Bloquea la imagen en la celda. De forma predeterminada, las imágenes que agregas se quedan “flotando” sobre las celdas y no cambian de tamaño como lo hacen estas. Para solucionar este detalle, debes bloquear la imagen o la celda.
- Haz clic derecho sobre la imagen y luego en Formato de imagen. Luego, haz clic en la pestaña “Tamaño y propiedades” (que tiene un símbolo con un cuadrado verde con flechas alrededor) y selecciona la opción Mover y cambiar tamaño con celdas.
- También puedes emplear un código VBA después de haber insertado algunas imágenes. Después de insertarlas, presiona Alt + F11 para abrir la ventana de VBA. Haz clic en Insertar > Módulo y pega el siguiente código:
- Presiona F5 para ejecutar el código y repite este procedimiento hasta que todas las imágenes de la hoja quepan en las celdas.
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
Anuncio
Acerca de este wikiHow
