PTT數位生活區 / Office

[算表] VBA插入物件問題

看板Office作者 (溫柔殺手)時間6年前 (2018/10/20 22:21), 6年前編輯推噓2(2推 0噓 22→)
留言24則, 2人參與, 6年前最新討論串1/1
軟體:Excel 版本:2013 各位版大晚安，雖然經過Soyoso大大的指導，我還是沒能成功，很是挫折。 所以我把我的嘗試過程做比較詳細的描述，希望能夠各位大大明白我所遭遇的問題。 第一步我是先錄製巨集。兩個巨集都是插入(PDF跟圖檔)然後調整大小最後刪除。 錄製的程式碼如下連結。 https://imgur.com/mSWkDzl
第一個問題就是，錄製完後，原封不動直接執行，第一個PDF，會出現錯誤。如下所示。 https://imgur.com/Fwt1Tpc
第二個問題就是將巨集修改成如下。 Sub 插入PDF調整並刪除() ' 插入PDF調整並刪除 巨集 Dim PDF As Object Set PDF = ActiveSheet.OLEObjects.Add(Filename:="C:\temp\test.pdf", _ Link:=False,DisplayAsIcon:=False) With PDF ActiveSheet.OLEObjects("PDF").Shapes.ScaleWidth 0.5511904699, msoFalse, _ msoScaleFromTopLeft ActiveSheet.OLEObjects("PDF").Shapes.ScaleHeight 0.5511904762, msoFalse, _ msoScaleFromTopLeft .Select Selection.Delete End With End Sub 錯誤訊息如下 https://imgur.com/Eh48xY7
第三個問題是關於插入圖片的問題。這裡我使用的方法是Pictures.insert 在程式碼中完全沒有提到這個物件的名字。 雖然Run巨集沒問題。但是我想，真正在寫程式的時候會有兩張以上的圖片應用。 所以，我就嘗試錄製插入多張圖片。果真發現有編號。於是我就跟PDF一樣如法炮製。 結果，想當然爾，又是不行。錯誤訊息是型態不符。 Sub 插入多張圖片並刪除() ' ' 插入多張圖片並刪除 巨集 Dim a As Shape Dim b As Shape Dim c As Shape Set a = ActiveSheet.Pictures.Insert("C:\temp\ScreenHunter 58.jpg") Set b = ActiveSheet.Pictures.Insert("C:\temp\ScreenHunter 59.jpg") Set c = ActiveSheet.Pictures.Insert("C:\temp\ScreenHunter 55.jpg") ActiveSheet.Shapes.Range(Array(a)).Select Selection.Delete ActiveSheet.Shapes.Range(Array(b)).Select Selection.Delete ActiveSheet.Shapes.Range(Array(c)).Select Selection.Delete End Sub 看來兩個問題都出在物件的用法。我有去爬微軟的說明。 我不確定我的理解是否有錯Objects跟Shapes都是物件的集合。 在這邊都已經有出現了，所以，我其實不太明白，為什麼會錯。 懇請高手大大指導，感恩。 -- ※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.195.98.141 ※ 文章網址: https://www.ptt.cc/bbs/Office/M.1540045296.A.318.html
推
10/20 23:22, 6年前 , 1F
第一個問題，你再執行一次之後新增的pdf在Shapes裡面可能
10/20 23:22, 1F
→
10/20 23:22, 6年前 , 2F
不是叫Object 20，所以可能是程式找不到對應物件
10/20 23:22, 2F
推
10/20 23:25, 6年前 , 3F
第二個問題，你已經Set好PDF了，直接用PDF呼叫該物件即可
10/20 23:25, 3F
→
10/20 23:25, 6年前 , 4F
，或在With陳述中，直接以.ScaleWidth進行讀取或修改
10/20 23:25, 4F
→
10/20 23:29, 6年前 , 5F
第三個問題同第二題，你Set好物件之後，那個a,b,c就是物件
10/20 23:29, 5F
→
10/20 23:29, 6年前 , 6F
本身，不用再去Shapes collection裡面找，Shapes()的用法
10/20 23:29, 6F
→
10/20 23:29, 6年前 , 7F
是給序號(數字)或是名字(字串)，而不是一個物件
10/20 23:29, 7F
→
10/20 23:31, 6年前 , 8F
意即set a完畢後，直接以a.Delete就可以把a刪除，不需要se
10/20 23:31, 8F
→
10/20 23:31, 6年前 , 9F
lect再selection.delete
10/20 23:31, 9F
→
10/20 23:37, 6年前 , 10F
基本上我在寫VBA時，除了與使用者互動相關的功能外，能不
10/20 23:37, 10F
→
10/20 23:37, 6年前 , 11F
用select就不用，因為既然你可以用程式碼找到要選取的對象
10/20 23:37, 11F
→
10/20 23:37, 6年前 , 12F
，你就能給他一個物件指標，直接對物件操作，一來在處理多
10/20 23:37, 12F
→
10/20 23:38, 6年前 , 13F
物件的時候不會搞錯選取對象，二來在效率和程式碼可讀性都
10/20 23:38, 13F
→
10/20 23:38, 6年前 , 14F
較高
10/20 23:38, 14F
@newacc大大，感謝指導。 我將我的程式碼修改成如下。 Sub importPDF() ' importPDF 巨集 Dim PDF As Object Set PDF = ActiveSheet.OLEObjects.Add(Filename:="C:\Users\ACER\Desktop\temp\test.pdf", Link:=False, DisplayAsIcon:=False) With PDF .ScaleWidth 0.6011905583, msoFalse, msoScaleFromTopLeft .ScaleHeight 0.6011904762, msoFalse, msoScaleFromTopLeft '.Shapes.Range(Array("PDF")).Delete '先註解起來，等上面成功了在試 End With End Sub 結果一執行還是遇到了問題。弔詭的是，第一行程式碼都一模一樣，但是今天的錯誤卻 不相同 今天的錯誤訊息無法取得類別OLEObjects的Add屬性。這.... 在煩請大大指導，感恩。 ※ 編輯: yimean (123.195.98.141), 10/21/2018 08:58:52
→
10/21 08:59, 6年前 , 15F
更新資訊
10/21 08:59, 15F
→
10/21 10:25, 6年前 , 16F
我測試該行沒有問題，就算filename路徑給錯的，錯誤訊息也
10/21 10:25, 16F
→
10/21 10:26, 6年前 , 17F
不是你提到的那個，可能要提供更詳細的資訊才能抓錯，例如
10/21 10:26, 17F
→
10/21 10:27, 6年前 , 18F
程式碼放置位置，執行是否是新文件等等
10/21 10:27, 18F
→
10/21 10:28, 6年前 , 19F
不過測試時發現另一個問題，.ScaleWidth是Shape Object的
10/21 10:28, 19F
→
10/21 10:29, 6年前 , 20F
方式，但OLEObject裡面的Object並沒有這個方式，所以可以
10/21 10:29, 20F
→
10/21 10:29, 6年前 , 21F
用另一種寫法試試看
10/21 10:29, 21F
→
10/21 10:29, 6年前 , 22F
Dim PDF As Shape
10/21 10:29, 22F
→
10/21 10:30, 6年前 , 23F
Set PDF = ActiveSheet.Shapes.AddOLEObject(FileName:=""
10/21 10:30, 23F
→
10/21 10:30, 6年前 , 24F
如此才能用PDF.ScaleWidth
10/21 10:30, 24F
‣ 更多 yimean 的文章
文章代碼(AID): #1RopdmCO (Office)
Office 近期熱門文章
更多 近期熱門文章 >>
PTT數位生活區 即時熱門文章
更多 即時熱門文章 >>
‣ 更多 yimean 的文章
文章代碼(AID): #1RopdmCO (Office)