作者losewind (錯的時間對的人)
看板Office
標題Re: [問題] EXCEL VBA插入圖片
時間Thu Apr 23 18:27:56 2020
※ 引述《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
抱歉對VBA初學，我改成SHAPE.ADDPicture以後 他偵錯卡在反黃的那一欄
是哪個部分有問題嗎???
Private Sub CommandButton1_Click()
X = ActiveCell.Width
Y = ActiveCell.Height
fufilename = Application.GetOpenFilename
with ActiveSheet.Shapes.AddPicture(fufilename)
.msoTrue
.msoTrue
.ActiveCell.Left
.ActiveCell.Top
.ShapeRange.Height = Y
.ShapeRange.Width = X
End With
End Sub
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 59.124.14.228 (臺灣)
※ 文章網址: https://www.ptt.cc/bbs/Office/M.1587637680.A.A5F.html
→ losewind: 可以了~感謝指導~P幣奉上 04/27 15:25
→ losewind: 順便請問一下，如果要圖片判斷欄寬高為合併儲存格怎解? 04/27 15:25
→ soyoso: 判斷作用儲存格是否為合併儲存格，range.mergecells為真表 04/27 15:41
→ soyoso: 示為合併儲存格，range.mergearea.height為高，width為寬 04/27 15:42
→ soyoso: 或不用判斷，直接以range.mergearea.height和width取高寬 04/27 15:56
→ waiter337: 前幾天遇到相同問題 有大大指點了一下 05/09 10:31
→ waiter337: 一開始也是picture.insert(xx)跟.shapes.addpicture() 05/09 10:32
→ waiter337: 的問題 後來我改成後者 但中間true false不管怎麼調 05/09 10:32
→ waiter337: 一樣無法攜帶完整解析度的圖檔 但可以攜帶壓縮圖檔 05/09 10:33
→ waiter337: 經高手指點 選擇檔案>選項>進階>(v)不要壓縮檔案中的影 05/09 10:34
→ waiter337: 像;預設解析度[高畫質] (v)圖形使用高品質模式 05/09 10:35
→ waiter337: 給您參考 05/09 10:35