Insertar imagen en hoja excel
Utilizo la macro adjunta para insertar una imagen escogida de alguna carpeta de mi computador, pero la instrucción ActiveSheet.Pictures.Insert Filename.Select no funciona, ¿como lo hago?, gracias.
Sub Abrir()
On Error GoTo x
Dim strArchivo$
strArchivo$ = _Application.GetOpenFilename("Fotografias (*.jpg), *.jpg")
Range("B2").Select
ActiveSheet.Pictures.Insert Filename.Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 257.25
Selection.ShapeRange.Width = 192.75
Selection.ShapeRange.Rotation = 0#
MsgBox "Operacion realizada"
Exit Sub
x:
MsgBox "Operacion cancelada"
End Sub
Sub Abrir()
On Error GoTo x
Dim strArchivo$
strArchivo$ = _Application.GetOpenFilename("Fotografias (*.jpg), *.jpg")
Range("B2").Select
ActiveSheet.Pictures.Insert Filename.Select
Selection.ShapeRange.LockAspectRatio = msoTrue
Selection.ShapeRange.Height = 257.25
Selection.ShapeRange.Width = 192.75
Selection.ShapeRange.Rotation = 0#
MsgBox "Operacion realizada"
Exit Sub
x:
MsgBox "Operacion cancelada"
End Sub
{"Lat":-29.8147373533398,"Lng":-70.91796875}
Respuesta de Eduard Caballero
1