軟體: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都是物件的集合。
在這邊都已經有出現了，所以，我其實不太明白，為什麼會錯。
懇請高手大大指導，感恩。