標題: [發問] 如何刪除所有的圖形 [打印本頁]

---

作者: vanguarx    時間: 2015-3-26 10:26     標題: 如何刪除所有的圖形

在某個 sheet 上有很多圖形，我要將每個圖形刪除, 寫了下列這一段,

但一直出現 此時無法進入中斷模式 的警告視窗... 求解....

Dim p As Shape
   
    For Each p In ActiveSheet.Shapes

            p.Delete     
      
  
    Next

---

作者: vanguarx    時間: 2015-3-26 10:44

google 一下，看到有人用 "activesheet.shapes.delete" 這個方法

但還是不行

---

作者: lpk187    時間: 2015-3-26 11:05

回復 1# vanguarx

1. For Each shap In 工作表1.Shapes
   
2.     shap.Delete
   
3. Next

複製代碼

---

作者: vanguarx    時間: 2015-3-26 11:17

不行耶...

顯示 shap 未定義

---

作者: k123456770    時間: 2015-3-26 11:29

試試看

    Sheets("您選擇的Sheet").Select
    ActiveSheet.Pictures.Delete

---

歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)