軟體:Excel 版本:2013 僅以分享此篇文章，感謝Soyoso以及Newacc兩位大大。 小弟多次在板上發問，內容問題相對於其他人比較複雜。 但是兩位大大都耐著性子看完，也許是小弟資質駑鈍，有些還真的看不懂。 但是兩位大大還是不厭其煩的指導。小弟銘感五內。這個問題之所以想跟大家分享。 是因為，其實小弟也有Google過，但是得到的Sample code，真的是Sample code。 就是可以把功能展現出來，但是呢，在整體程式的架構上，卻不好管理跟擴展。 我發現網路上很多的Code都是這樣，跟錄製巨集的感覺有點接近。 小弟並非是為了交交作業，而進行練習，所以這樣的Sample code對我來說是不夠的。 但，其實，功力深厚的大大肯定可以將Sample code輕易地改成需要的內容。 但，對於我這個沒有受過系統性程式訓練的人來說，卻是有點困難的。因為是觀念的問題 所以，我就將我今天花了4個小時嘗試的結果跟大家分享。 希望起到拋磚引玉，良善循環的效果。 Sub 插入PDF調整並刪除() ' 插入PDF調整並刪除 巨集 Dim PDF As Object Set PDF = ActiveSheet.OLEObjects.Add(Filename:="C:\temp\test.pdf", _ Link:=False, DisplayAsIcon:=False) With PDF .Width = 100 .Height = 200 End With MsgBox "接下來要刪除PDF了" PDF.Delete End Sub Sub 插入JPG調整並刪除() Dim img As Variant '這個地方我嘗試過宣告成Shape物件但是失敗 Set img = ActiveSheet.Pictures.Insert("C:\temp\ScreenHunter_11 Oct. 11 21.55.jpg") With img .Height = 150 .Width = 250 End With MsgBox "接下來要刪除了" img.Delete End Sub 功力深厚的大大應該不難發現，JPG插入變數宣告的部分是用了Variant這個巧門。 這就是我說的觀念性問題。 野人獻曝，還希望大大們不要鞭得太大力。