標題: 圖案按鈕如何刪除 [打印本頁]

---

作者: ssooi    時間: 2021-5-3 11:10     標題: 圖案按鈕如何刪除

請問這種圖案的按鈕，要怎麼用VBA刪除呢?
[attach]33267[/attach]

(因為表單控制項按鈕有點制式，不好看，所以我是用"插入"--"圖案"的按鈕)

我用
Columns(20).Delete
Columns(21).Delete
Columns(22).Delete
很奇怪~只刪除2~按鈕1卻刪不掉

---

作者: samwang    時間: 2021-5-3 13:06

回復 1# ssooi


可以確認設定圖案格式屬性有無被固定，或者改為如下，請測試看看，謝謝
For Each shp In ActiveSheet.Shapes
        shp.Delete
Next

---

作者: quickfixer    時間: 2021-5-3 13:07

sheets("工作表名稱").shapes("圖案名稱").delete

---

作者: ssooi    時間: 2021-5-3 18:06

我後來也用錄製巨集找到答案了
感謝各位大家
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1", "Rounded Rectangle 2" _
    )).Select
Selection.Delete

---

作者: 劉大胃    時間: 2021-5-4 10:19

For Each shpPicChk In ActiveSheet.Shapes                                              ' 尋找範圍:[T1:V100]內有無圖片(且不為下拉按鈕), 如果有的話, 則刪除.
           If Left(shpPicChk.Name, 4) <> "Drop" Then
              If (shpPicChk.TopLeftCell.Column >= 20 And shpPicChk.TopLeftCell.Column <= 21 And shpPicChk.TopLeftCell.Row >= 1 And shpPicChk.TopLeftCell.Row <= 100) Then
                 shpPicChk.Delete
              End If
           End If
       Next shpPicChk

---

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