Como ajustar una imagen al tamaño de una celda
Tengo celdas con tamaño fijo y quiero arrastrar o insertar una imagen y que se ajuste al tamaño de la celda.
Te dejo una macro de ejemplo de dónde podrás extraer las instrucciones que necesitas para dimensionar el objeto a la celda elegida.
Sub ubicaImagen()
'x Elsamatilde
ruta = ThisWorkbook.Path & "\"
img01 = "cafe.jpg"
'dimensiones de la celda
tope = [E3].Top
izq = [E3].Left
ancho = [E3].Width
alto = [E3].Height
'se inserta el objeto
ActiveSheet.Pictures.Insert(ruta & img01).Select
Selection.Top = tope
Selection.Left = izq
Selection.Width = ancho
Selection.Height = alto
'opcional
Range("C11").Select
End SubSdos y no olvides valorar la respuesta si el tema quedó comprendido. Sino aclara un poco más la consulta.
Gracias por la prontitud en tu respuesta, lo pruebo cuando tenga 1 min. Pero ¿no se puede sin macros? Tengo el Excel 2016.
Hago pocas preguntas, pero me sorprendes siempre.
Sldos
No, porque los objetos se colocan 'por encima' de las celdas no dentro, por eso le asignamos la misma posición y tamaño de las celdas.
Manualmente podrás ajustar el tamaño desde las propiedades del objeto pero tendrás que ubicarlo 'a ojo' ;)
Sdos!
