圖案按鈕如何刪除

ssooi

請問這種圖案的按鈕，要怎麼用VBA刪除呢?

下載 (7.43 KB)

2021-5-3 11:08

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

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

劉大胃

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

ssooi

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

quickfixer

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

samwang

回復 1# ssooi


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