返回列表 上一主題 發帖

圖案按鈕如何刪除

圖案按鈕如何刪除

請問這種圖案的按鈕,要怎麼用VBA刪除呢?
未命名.jpg
3 天前 11:08


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

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

回復 1# ssooi


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

TOP

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

TOP

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

TOP

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
新手上路,請多包涵。

TOP

        靜思自在 : 為人處世要小心細心,但不要「小心眼」。
返回列表 上一主題