Insertar una imagen en la celda de Excel

Compatibilidad: Truco compatible con Excel 365Truco compatible con Excel 2016Truco compatible con Excel 2013Truco compatible con Excel 2010Truco compatible con Excel 2007

Podemos insertar una imagen en la celda de Excel, para realizar un catálogo de productor, relación de personal, etc.

Insertar una imagen en la celda de Excel

Disponemos en la columna A el nombre del programa y en la columna B insertaremos su icono sobre la celda.

AB
1ProgramaIcono
2Excel
3Word
4PowerPoint
5Access
6Outlook
7Publisher
8OneNote
  • INSERTAR IMAGEN
  1. Ir a: Cinta de opciones / Pestaña: Insertar / Grupo: Ilustraciones / Imágenes o Imágenes en línea. Según desde donde deseamos obtener la imagen.

  2. Seleccionar la carpeta y el archivo deseado.

  3. Pulsar el botón Insertar. Insertará la imagen en la hoja.

    Hoja Excel con imagen insertada
  • ADAPTAR IMAGEN A LA CELDA
  1. Clic sobre la imagen. La seleccionamos para editarla.

  2. Ir a cualquiera de los puntos de control (Superior izquierda/derecha o inferior izquierda/derecha) Clic, mantener pulsado y arrastrar al tamaño deseado.

    Hoja Excel con imagen modificado el tamaño
  3. Clic sobre la imagen y arrastrar hasta el interior de la celda deseada.

    Imagen situada en celda B2 de la hoja Excel
  4. Ir a: Cinta de opciones / Pestaña: Formato (Herramientas de imagen) / Grupo: Tamaño / Botón tamaño y propiedades. Mostrará el panel de formato de imagen.

    Panel de formato de imagen con opción mover y cambiar tamaño con celdas Excel
  5. Ir a Propiedades / Activar la casilla: Mover y cambiar el tamaño con celdas. Opción deseada.

  6. Repetir el proceso para las imágenes deseadas.

    Hoja Excel con diferentes imágenes en celdas
  7. Modificar el ancho de la columna A y verificar como la imagen se mantiene sobre la columna B.

Nivel de dificultad: Básico Excel Básico

15 comentarios en “Insertar una imagen en la celda de Excel

    • Hola Paul,

      No se a que te refieres por documentos en una celda, si indicas un poco más te podré ayudar. En una celda podremos insertar hipervínculos a un documento, pero no el documento como tal.

      Saludos.

  • Buen día.
    Primero que todo, felicitarlo por tan excelentes publicaciones.
    Necesito ajustar un presupuesto de ingresos y gastos de un conjunto residencial.....¿Para resolver este asunto lo podría hacer con el complemento SOLVER?

  • Consulta, es posible insertar la imagen en una celda de excel para que al combinar correspondencia con Word, la columna de las imágenes también sean referenciadas.
    Gracias de antemano.

  • Hola, tengo una tarea que parte de este ejercicio que presentas. Por ejemplo, necesito llevar a power point las dos columnas, que me cree un slide con la palabra y el icono, luego otro slide con la fila siguiente y etc. es posible?. muchas gracias.

  • Buenas chicos.

    tengo un macro de vba, que es un formulario en el cual estoy capturando datos de un jugador de futbol es algo asi como un registro, quiero guardar todos los campos obtenidos en un libro de excel, se como guardar todo lo que es texto pero una imagen como la puedes guardar en el libro o como creas una referencia para que a la hora de ver el registro este la foto o por lo menos la ruta de la foto.

    Es algo asi el codigo que tengo

    Private Sub guardar_Click()
    Dim hojadestino As Range
    Dim nuevafila As Integer

    Set hojadestino = Worksheets("Jugadores").Range("A1").CurrentRegion
    nuevafila = hojadestino.Rows.Count + 1

    With Worksheets("Jugadores")
    .Cells(nuevafila, 1).Value = Me.Boxeq.Value 'equipo
    .Cells(nuevafila, 2).Value = Me.txtname.Value 'nombre
    .Cells(nuevafila, 3).Value = Me.txtpat.Value 'apellido paterno
    .Cells(nuevafila, 4).Value = Me.txtmat.Value 'apellido materno
    .Cells(nuevafila, 5).Value = Me.txtcal.Value 'fecha de nacimiento
    .Cells(nuevafila, 6).Value = Me.txtcamisa.Value ' numero de camisa
    .Cells(nuevafila, 7).Value = Me.lblpos.Caption 'posicion
    .Cells(nuevafila, 8).Value = Me.Boxnac.Value 'nacionalidad
    .Cells(nuevafila, 9).Value = Me.txtcat.Value 'categoria
    .Cells(nuevafila, 10).Value = Me.txtalt.Value 'altura
    .Cells(nuevafila, 11).Value = Me.txtpeso.Value 'peso
    .Cells(nuevafila, 12) = Me.foto1.Picture
    End With

    MsgBox "Alta Exitosa.", vbInformation, "Registro completo"

    Boxeq.Value = "" 'equipo
    txtname.Value = "" 'nombre
    txtpat.Value = "" 'apellido paterno
    txtmat.Value = "" 'apellido materno
    txtcal.Value = "" 'fecha de nacimiento
    'numero de camisa aun sin asignar
    lblpos.Caption = "" 'posicion
    Boxnac.Value = "" 'nacionalidad
    txtcat.Value = "" 'categoria
    txtalt.Value = "" 'altura
    txtpeso.Value = "" 'peso
    boxcat.Enabled = False
    foto1.Picture = LoadPicture("")

    End Sub

Responder a Eduardo Sánchez Romero Cancelar la respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *

Este sitio usa Akismet para reducir el spam. Aprende cómo se procesan los datos de tus comentarios.