作者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/cn.aspx?n=bbs/Office/M.1541383880.A.161.html
※ 编辑: yimean (114.33.116.8), 11/05/2018 10:11:55