[算表] 批次刪除物件

[home0303 (Blue night)]

軟體:EXCEL

版本:2007

Sub kill shapes()
For Each sp In Shapes
        If sp.Name <> "av" Then
            sp.Delete
    End If
Next
End Sub

第一句就出現「型態不符合」的錯誤
請問該怎麼改呢

謝謝

--



--
※ 發信站: 批踢踢實業坊(ptt.cc), 來自: 175.98.114.28
※ 文章網址: http://www.ptt.cc/bbs/Office/M.1411370611.A.610.html
→ soyoso: For Each sp In ActiveSheet.Shapes
→ home0303: 謝謝