標題: 【求助】詢問如何刪除物件但不要刪除到VBA的按鈕 [打印本頁]

---

作者: david1216jp    時間: 2019-5-21 21:14     標題: 【求助】詢問如何刪除物件但不要刪除到VBA的按鈕

本帖最後由 david1216jp 於 2019-5-21 21:15 編輯

各位前輩們好，先行提供檔案如下，
[attach]30642[/attach]
檔案中我有爬文寫了一個巨集DeleteAll，
但是執行之後都會把我在旁邊放置的按鈕同時刪除掉(似乎不能用shapes)，
請問是否有方法可以改寫，把檔案中Forms.HTML:Text與Forms.HTML:Checkbox都刪除掉，
然後不會動到旁邊的按鈕，還向各位高手求助，感謝~~

---

作者: jeffrey628litw    時間: 2019-5-22 13:28

回復 1# david1216jp


    建議用籃底白字那種按鈕就不會被 VBA 程式刪除掉 VBA 按紐。


[attach]30648[/attach]


[attach]30649[/attach]

---

作者: david1216jp    時間: 2019-5-22 15:31

感謝您協助提供意見，我剛剛想到解決的方法，已解決問題，再次感謝~~
[attach]30650[/attach]

1. Sub DeleteAll()
   
2. 
   
3. Application.ScreenUpdating = False
   
4. 
   
5. Dim shp As OLEObject
   
6. 
   
7. Columns("A:R").Select
   
8. Selection.Delete Shift:=xlToLeft
   
9. 
   
10. For Each shp In ActiveSheet.OLEObjects
    
11.    shp.Delete
    
12. Next shp
    
13. 
    
14. Range("A1").Select
    
15. 
    
16. Application.ScreenUpdating = True
    
17. 
    
18. End Sub

複製代碼

---

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