How to insert an embedded picture?

Question

xlApp.activesheet.Pictures.Insert(strImagePath) inserts pictures into a spreadsheet as a linked picture. If I send the spreadsheet out of our network the images

Answer 1

Activesheet.Shapes.AddPicture Filename:="C:\image.jpg", LinkToFile:=msoFalse, _
        SaveWithDocument:=msoTrue, Left:=0, Top:=0, Width:=-1, Height:=-1

this works, maybe the following code can help someone too (it helped me) this is how you select the image you've just added:

ActiveSheet.Shapes(ActiveSheet.Shapes.Count).Select