作者yimean (溫柔殺手)
看板Office
標題[分享] Excel VBA物件插入及編輯
時間Sun Oct 21 20:08:43 2018
軟體: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這個巧門。
這就是我說的觀念性問題。
野人獻曝，還希望大大們不要鞭得太大力。
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 123.195.98.141
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1540123726.A.45C.html
1F：推 newacc: 若是Dim img As Shape，可以用Shapes.AddPicture方式 10/21 21:43
3F：→ yimean: 感謝指導，確實是可以的。 10/22 07:03
4F：→ soyoso: 原文如宣告shape失敗可改以宣告為picture 10/23 14:28