作者yimean (溫柔殺手)
看板Office
標題[分享]如何能正確的刪除物件
時間Mon Nov 5 10:11:17 2018
各位板上的大大早上好
小弟想跟大家分享一個用VBA"正確"刪除特定未知數量物件的方法。
這個方法並不是小弟自己發明的，而是遇到困難，去找的答案。
原始出處
https://tinyurl.com/yaaktrwr
想要分享的原因是因為，看完這邊文章可以少走很多冤枉路。
重點是，內文提及的錯誤方法，在網路上竟是隨手可得的Sample code的變形。
也就是說，像我們這種沒有受訓練的人，會欲哭無淚，充滿挫折。
這個應用的情境是，欲刪除利用VBA所建立的個定物件，不知其數量及名稱。
同時在同一個頁面有其他物件。
為怕連結失效，小弟將正確Sample code放置如下。
Sub DeleteUnwantedShapesImproved()
Dim shp As Shape
For Each shp In ActiveSheet.Shapes
' Delete the "Delete Me" shape
If Left(shp.Name, 6) = "Delete" Then shp.Delete
Next
End Sub
供大家參考。
--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 114.33.116.8
※ 文章網址: https://webptt.com/m.aspx?n=bbs/Office/M.1541383880.A.161.html
※ 編輯: yimean (114.33.116.8), 11/05/2018 10:11:55