[算表] 批次删除物件

楼主: home0303 (Blue night)   2014-09-22 15:23:28
软件:EXCEL
版本:2007
Sub kill shapes()
For Each sp In Shapes
If sp.Name <> "av" Then
sp.Delete
End If
Next
End Sub
第一句就出现“型态不符合”的错误
请问该怎么改呢
谢谢
作者: soyoso (我是耀宗)   2014-09-22 16:07:00
For Each sp In ActiveSheet.Shapes
楼主: home0303 (Blue night)   2014-09-22 16:47:00
谢谢

Links booklink

Contact Us: admin [ a t ] ucptt.com