Sub InsertaImagen2()

Application.ScreenUpdating = False
On Error Resume Next
Dim uf As Integer
Dim path As Variant
Dim desc As String
Dim imagen As String

path = Application.GetOpenFilename(«Archivos JPG PNG BMP (*.jpg*;*.png*;*.bmp*), *.jpg*;*.png*;*.bmp*»)
ActiveSheet(«hoja1»).Range(«J3»).Select
Range(«J3»).Select

With ActiveSheet.Shapes.AddPicture(Filename:=path, linktofile:=msoFalse, _
SaveWithDocument:=msoCTrue, Left:=0, Top:=0, Width:=-1, Height:=-1)

.LockAspectRatio = 0
.Top = ActiveCell.Top
.Left = ActiveCell.Left
.Width = 160
.Height = 110
End With

Application.ScreenUpdating = True
End Sub

Prueba esta a ver si les gusta.. ABRE LA CARPETA IMAGEN Y ESCOGEN LA QUE NECESITEN Y NO PIERDE EL VINCULO.. SE MANTIENE EN LA HOJA

Responder