作者yimean (溫柔殺手)
看板Office
標題[算表] VBA插入物件問題
時間Sat Oct 20 22:21:34 2018
軟體: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://webptt.com/m.aspx?n=bbs/Office/M.1540045296.A.318.html
1F：推 newacc: 第一個問題，你再執行一次之後新增的pdf在Shapes裡面可能 10/20 23:22
2F：→ newacc: 不是叫Object 20，所以可能是程式找不到對應物件 10/20 23:22
3F：推 newacc: 第二個問題，你已經Set好PDF了，直接用PDF呼叫該物件即可 10/20 23:25
4F：→ newacc: ，或在With陳述中，直接以.ScaleWidth進行讀取或修改 10/20 23:25
5F：→ newacc: 第三個問題同第二題，你Set好物件之後，那個a,b,c就是物件 10/20 23:29
6F：→ newacc: 本身，不用再去Shapes collection裡面找，Shapes()的用法 10/20 23:29
7F：→ newacc: 是給序號(數字)或是名字(字串)，而不是一個物件 10/20 23:29
8F：→ newacc: 意即set a完畢後，直接以a.Delete就可以把a刪除，不需要se 10/20 23:31
9F：→ newacc: lect再selection.delete 10/20 23:31
10F：→ newacc: 基本上我在寫VBA時，除了與使用者互動相關的功能外，能不 10/20 23:37
11F：→ newacc: 用select就不用，因為既然你可以用程式碼找到要選取的對象 10/20 23:37
12F：→ newacc: ，你就能給他一個物件指標，直接對物件操作，一來在處理多 10/20 23:37
13F：→ newacc: 物件的時候不會搞錯選取對象，二來在效率和程式碼可讀性都 10/20 23:38
14F：→ newacc: 較高 10/20 23:38
@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
15F：→ yimean: 更新資訊 10/21 08:59
16F：→ newacc: 我測試該行沒有問題，就算filename路徑給錯的，錯誤訊息也 10/21 10:25
17F：→ newacc: 不是你提到的那個，可能要提供更詳細的資訊才能抓錯，例如 10/21 10:26
18F：→ newacc: 程式碼放置位置，執行是否是新文件等等 10/21 10:27
19F：→ newacc: 不過測試時發現另一個問題，.ScaleWidth是Shape Object的 10/21 10:28
20F：→ newacc: 方式，但OLEObject裡面的Object並沒有這個方式，所以可以 10/21 10:29
21F：→ newacc: 用另一種寫法試試看 10/21 10:29
22F：→ newacc: Dim PDF As Shape 10/21 10:29
23F：→ newacc: Set PDF = ActiveSheet.Shapes.AddOLEObject(FileName:="" 10/21 10:30
24F：→ newacc: 如此才能用PDF.ScaleWidth 10/21 10:30