作者losewind (錯的時間對的人)
看板Office
標題[問題] EXCEL VBA插入圖片
時間Thu Apr 23 16:31:02 2020
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1587630665.A.2E2.html
1F:→ soyoso: 改以shapes.addpicture試試,測試更名後再開啟檔案,圖片 04/23 17:03
2F:→ soyoso: 還是存在 04/23 17:03
3F:→ soyoso: SaveWithDocument的部分要與文件一同儲存的圖片,就以true 04/23 17:08
4F:→ soyoso: 其他如要放置於作用儲手格left和top的部分就以activecell. 04/23 17:11
5F:→ soyoso: left和activecell.top來取得,長寬原巨集有,變數X和Y 04/23 17:12
6F:→ soyoso: "存"(錯字) 04/23 17:16