软件:EXCEL
版本:OFFICE 365
之前问过一个类似的问题，后来自己有尝试成功
但是发现这其实只是LINK到自己电脑图片的路径
有没有人可以教一下怎么修正成真的夹带图片进EXCEL档案
Private Sub CommandButton1_Click()
X = ActiveCell.Width
Y = ActiveCell.Height
fufilename = Application.GetOpenFilename
With ActiveSheet.Pictures.Insert(fufilename)
.ShapeRange.LockAspectRatio = msoFalse
.ShapeRange.Height = Y
.ShapeRange.Width = X
End With
End Sub

改以shapes.addpicture试试，测试更名后再开启档案，图片还是存在SaveWithDocument的部分要与文件一同储存的图片，就以true其他如要放置于作用储手格left和top的部分就以activecell.left和activecell.top来取得，长宽原宏有，变量X和Y"存"(错字)