[算表] 批次刪除物件

作者: 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