Question

我的一段代码（删除工作表中的所有形状）突然开始抛出错误

“对象不支持此属性或方法”

并突出显示行If Shp.Type = msoAutoShape Then这是我不断更新的大代码的一部分，但下面的代码不是任何循环，IF等的一部分。可能是什么原因？

Dim Shp As Shape
For Each Shp In ActWS.Shapes                                                        
    If Shp.Type = msoAutoShape Then Shp.Delete
Next Shp

Answer 1

您的代码由我工作。可能你正在使用的形状有些东西。你能运行这个：

Public Sub ale()

Dim Shp As Shape

For Each Shp In ActiveSheet.Shapes
    If Shp.Type = msoAutoShape Then
        Debug.Print Shp.Name
        Shp.Delete
    End If
Next Shp

End Sub

并在错误发生之前分享立即窗口的最后结果是什么？另外，您能否确认错误出现在新代码的哪一行？

删除SHAPES时出错

1 个答案: