VBA插入embedded式图片excel

我看过很多关于我们xlApp.activesheet.Pictures.Insert(strImagePath)的post,用VBA插入图片到电子表格中,效果很好。 唯一的问题是它把它作为一个链接的图片插入。 所以如果我把电子表格从我们的networking发送出去,图像就会失败。 任何人都可以告诉我如何使用Pictures.Insert将图像作为embedded式图像,或者其他方法将它embedded? 如果有帮助的话,我也可以从访问中调用这个方法。

你可以使用shapes.addpicture方法

 activesheet.Shapes.AddPicture Filename:="C:\test\desert.jpg", linktofile:=msoFalse, _ savewithdocument:=msoCTrue, Left:=0, Top:=0, Width:=100, Height:=100