什麼可能導致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

我敢打賭它會每次都有效。