[問題] EXCEL VBA插入圖片

[losewind (錯的時間對的人)]

軟體: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


--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.124.14.228 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1587630665.A.2E2.html
→ soyoso: 改以shapes.addpicture試試，測試更名後再開啟檔案，圖片
→ soyoso: 還是存在
→ soyoso: SaveWithDocument的部分要與文件一同儲存的圖片，就以true
→ soyoso: 其他如要放置於作用儲手格left和top的部分就以activecell.
→ soyoso: left和activecell.top來取得，長寬原巨集有，變數X和Y
→ soyoso:                    "存"(錯字)