Pegar imagen en celda especifica de Excel
Estoy haciendo una macro que me cargue una imagen, pero cuando la pega en la hoja lo hace un cualquier parte, lo que necesito es que se pegue por ejemplo en la celda A5.
La macro que utilizo actualmente es esta:
Private Sub CommandButton5_Click()
fichero = Application.GetOpenFilename
If fichero = False Then Exit Sub
tope = Range("B4").Top
izq = Range("B4").Left
alto = Range("B4").Height
ancho = Range("B4").Width
Sheets("Hoja3").Pictures.Insert(fichero).Select
w = Selection.Width
h = Selection.Height
MsgBox "La imagen se guardo correctamente"
1 Respuesta
Te anexo la actualización
Private Sub CommandButton5_Click()
fichero = Application.GetOpenFilename
If fichero = False Then Exit Sub
tope = Range("A5").Top
izq = Range("A5").Left
alto = Range("A5").Height
ancho = Range("A5").Width
Sheets("Hoja3").Pictures.Insert(fichero).Select
Selection.Top = tope
Selection.Left = izq
Selection.Height = alto
Selection.Width = ancho
MsgBox "La imagen se guardo correctamente"
End Subsal u dos
Gracias Dante Amor , ingrese el código actualizado y me manda el siguiente error
¿Qué dice el mensaje de error?
¿Estás insertando una imagen?
Yo lo probé y no tengo errores
Es correcto estoy insertando una imagen, pero el error que me sale es el siguiente
Se ha producido el error '1004' en tiempo de ejecución
No se puede asignar la propiedad Top de la clase Range.
¿Tienes una hoja llamada "Hoja3"?
¿Está seleccionada la "Hoja3"?
Selecciona la "Hoja3" y vuelve a probar
¿Está protegida la hoja3?
¿Tienes celdas combinadas?
¿En pantalla ves la imagen insertada y que además esté seleccionada?
¡Gracias!
¿Se resolvió el problema? Si es así recuerda valorar.
