Buscar e insertar imágenes con macros
Este es mi primer post en el foro
Mi problema es que necesito una macro que:
1º Te permita seleccionar una foto
2º Insertarla en la zona destinada a ella (una celda determinada) con el tamaño de dicha celda.
Yo lo que quiero es poder seleccionarla, es decir, que me habrá una ventanita con la que yo pueda navegar entre carpetas y seleccionarla.
1 respuesta
Respuesta de Luis Mondelo
2
Te mando mi solución. Con esta macro consigues tu objetivo.
En esta macro se insertará la imagen que elijas en la celda C3. Para ello previamente escoge el ancho y alto de la columna C para que la foto se adapte a ese tamaño y después ejecuta la macro:
Sub fotos()
'por luismondelo
fichero = Application.GetOpenFilename
If fichero = False Then Exit Sub
tope = Range("c3").Top
izq = Range("c3").Left
alto = Range("c3").Height
ancho = Range("c3").Width
ActiveSheet.Pictures.Insert(fichero).Select
w = Selection.Width
h = Selection.Height
Selection.ShapeRange.Top = tope
Selection.ShapeRange.Left = izq
Selection.ShapeRange.Height = alto
Selection.ShapeRange.Width = ancho
End Subrecuerda finalizar
Eexelente te felicito y agradezco por esta solución di muchas vueltas para poder conseguirla - daniel paternina