PTT數位生活區 / Office

Re: [問題] EXCEL VBA插入圖片

看板Office作者 (錯的時間對的人)時間5年前 (2020/04/23 18:28), 編輯推噓0(0推 0噓 13→)
留言13則, 3人參與, 5年前最新討論串2/2 (看更多)
※ 引述《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
→
04/23 18:37, 5年前 , 1F
04/23 18:37, 1F
→
04/27 15:25, 5年前 , 2F
可以了~感謝指導~P幣奉上
04/27 15:25, 2F
→
04/27 15:25, 5年前 , 3F
順便請問一下，如果要圖片判斷欄寬高為合併儲存格怎解?
04/27 15:25, 3F
→
04/27 15:41, 5年前 , 4F
判斷作用儲存格是否為合併儲存格，range.mergecells為真表
04/27 15:41, 4F
→
04/27 15:42, 5年前 , 5F
示為合併儲存格，range.mergearea.height為高，width為寬
04/27 15:42, 5F
→
04/27 15:56, 5年前 , 6F
或不用判斷，直接以range.mergearea.height和width取高寬
04/27 15:56, 6F
→
05/09 10:31, 5年前 , 7F
前幾天遇到相同問題 有大大指點了一下
05/09 10:31, 7F
→
05/09 10:32, 5年前 , 8F
一開始也是picture.insert(xx)跟.shapes.addpicture()
05/09 10:32, 8F
→
05/09 10:32, 5年前 , 9F
的問題 後來我改成後者 但中間true false不管怎麼調
05/09 10:32, 9F
→
05/09 10:33, 5年前 , 10F
一樣無法攜帶完整解析度的圖檔 但可以攜帶壓縮圖檔
05/09 10:33, 10F
→
05/09 10:34, 5年前 , 11F
經高手指點 選擇檔案>選項>進階>(v)不要壓縮檔案中的影
05/09 10:34, 11F
→
05/09 10:35, 5年前 , 12F
像;預設解析度[高畫質] (v)圖形使用高品質模式
05/09 10:35, 12F
→
05/09 10:35, 5年前 , 13F
給您參考
05/09 10:35, 13F
‣ 更多 losewind 的文章
文章代碼(AID): #1UeMsmfV (Office)
討論串 (同標題文章)
本文引述了以下文章的的內容：
完整討論串 (本文為第 2 之 2 篇)：
排序： 最新先 | 最舊先 | 留言數
在新視窗開啟完整討論串 (共2篇)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 losewind 的文章
文章代碼(AID): #1UeMsmfV (Office)