什么可能导致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

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