什么可能导致Shape.Cut在Excel VBA中失败？

Question

我在宏观的方法执行以下代码：

Set myDocument = Worksheets("sheet1") 
For each sh in myDocument.Shapes 
    If sh.Name = "square" Then 
     sh.Cut 
    End If 
Next 

我的问题是，代码导致上线sh.Cut错误。我知道有一个叫做“方形”的形状 - 我可以在视觉上看到文档中的形状，但是Excel并不想将这种形状剪掉。任何建议，为什么这可能是？

---

编辑：澄清，这种行为并不总是发生。通常它是好的 - 它似乎只是偶尔发生，但我看不到它发生的时间之间的任何关联。

谢谢。

Answer 1

使用Select方法只有两个原因。 1）你想选择一些东西。 2）你正在处理形状和获得奇怪的错误。这没有任何意义，但试试

sh.Select 
sh.Cut

我敢打赌它会每次都有效。