Insertar imagen en una celda de Excel

Muy buenas. Mi idea es intentar insertar una imagen (jpeg) dentro de una celda de excel, para que se adapte a la forma de esta celda.

Cuando me coloco en una celda y doy al botón "insertar imagen", Excel lo que hace es superponer la imagen "por encima" de la celda, pero no la mete dentro de la celda (como sí hace con el texto).

¿Cómo podría hacer esto? Es decir, mi intención es poner los logotipos de distintas empresas en la misma celda (o grupo de celdas combinadas), para hacer un informe para cada una de ellas, y que la imagen insertada, sea cual sea, tenga siempre el mismo tamaño (la de la celda donde la inserto).

Muchas gracias y recibid un cordial saludo,

1 respuesta

1
Respuesta de

Hola, esta es tu solución:  En mi ejemplo estoy insertando una imagen en la celda D5 mediante la macro que te adjunto.  En la macro nos preocupamos de ajustar la imagen a la esquina superior izquierda de la celda y cuando está insertada, solo tienes que estirar el alto de la fila 5 y el ancho de la columna D, de esta manera la foto está perfectamente ajustada a la celda D5. Además para otras celdas ya sabes el ancho y alto que debes poner.

Sub imagen()

tope = Range("d5").Top

izq = Range("d5").Left

ActiveSheet.Pictures.Insert("C:\Users\Luis\Pictures\fotoluis.jpg").Select

Selection.ShapeRange.Top = tope

Selection.ShapeRange.Left = izq

Selection.ShapeRange.Height = 120
End Sub

POR FAVOR RECUERDA FINALIZAR Y PUNTUAR MI LABOR

Añade un comentario a esta respuesta
Añade tu respuesta
Haz clic para o
Escribe tu mensaje