軟體: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"存"(錯字)