Inserting a jpg image in Excel

[xs2sandeep]

I want to insert a image in MS excel "A6" name to be mentioned in "B6" from a specified file and folder location on desktop of my computer.

Can anyone help me in writing a macro for the same.

thanks
Sandeep

 

[patel45]

Sub imageload() 
Dim cella, shp As Shape
    fpath = "C:\users\name\Desktop\"
    nfile = fpath & range("B6") & ".jpg"
     ActiveSheet.Pictures.Insert(nfile).Select
     Set shp = Selection.ShapeRange.Item(1)
     With shp
          .LockAspectRatio = msoTrue
          .Width = 50
          .Height = 50
          .Cut
      End With
      range("A6").PasteSpecial
    Next
End Sub

 

[xs2sandeep]

Thanks its working