標題: 刪圖片不刪按鈕 [打印本頁]

---

作者: jesscc    時間: 2016-7-22 22:41     標題: 刪圖片不刪按鈕

想請問，我在工作表上放了一個按鈕，用來刪圖片，可是按鈕一按下，連按鈕本身也被刪除了，要如何才能只刪圖片，保留按鈕

我的語法:
.Pictures.Delete

---

作者: lpk187    時間: 2016-7-22 22:57

回復 1# jesscc


    給你參考，.Type=8=>按鈕
    Dim shap As Shape
    For Each shap In .Shapes
        If shap.Type <> 8 Then
            shap.Delete
        End If
    Next

---

作者: jesscc    時間: 2016-7-22 23:04

沒用，按鈕還是自刪了

---

作者: lpk187    時間: 2016-7-22 23:13

回復 3# jesscc


    那就12試試
If shap.Type <>12 Then

---

作者: lpk187    時間: 2016-7-22 23:16

本帖最後由 lpk187 於 2016-7-22 23:17 編輯

回復 3# jesscc


    若不知type為何可以利用下列代碼，以逐行執行來找出TYPE

With Sheets("貼圖")
    Dim xx
    Dim shap As Shape
    For Each shap In .Shapes
        xx = shap.Type
        xx = shap.Name
    Next
End With

---

作者: jesscc    時間: 2016-7-22 23:20

OK了，謝謝

---

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