返回列表 上一主題 發帖

圖案按鈕如何刪除

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
1# 跳轉到 » 倒序看帖
打印
tT
發表於 2021-5-3 11:10 | 只看該作者

圖案按鈕如何刪除

請問這種圖案的按鈕，要怎麼用VBA刪除呢?
未命名.jpg

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

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

samwang

帖子
976 
主題
7 
精華
0 
積分
1018 
點名
0  
作業系統
Win10 
軟體版本
Office 2016 
閱讀權限
50 
性別
男 
註冊時間
2013-4-19 
最後登錄
2024-10-30 
2#
發表於 2021-5-3 13:06 | 只看該作者
回復 1# ssooi


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

TOP

quickfixer

帖子
154 
主題
1 
精華
0 
積分
200 
點名
31  
作業系統
windwos 7 
軟體版本
64bit 
閱讀權限
20 
註冊時間
2017-5-29 
最後登錄
2024-11-28 
3#
發表於 2021-5-3 13:07 | 只看該作者
sheets("工作表名稱").shapes("圖案名稱").delete

TOP

ssooi

帖子
37 
主題
15 
精華
0 
積分
72 
點名
0  
作業系統
win10 
軟體版本
0 
閱讀權限
20 
註冊時間
2020-7-23 
最後登錄
2022-5-27 
4#
發表於 2021-5-3 18:06 | 只看該作者
我後來也用錄製巨集找到答案了
感謝各位大家
ActiveSheet.Shapes.Range(Array("Rounded Rectangle 1", "Rounded Rectangle 2" _
    )).Select
Selection.Delete

TOP

劉大胃

帖子
63 
主題
8 
精華
0 
積分
122 
點名
0  
作業系統
Windows 2007 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
Taiwan 
註冊時間
2019-4-16 
最後登錄
2023-3-24 
5#
發表於 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
新手上路，請多包涵。

TOP

        靜思自在 : 手心向下是助人，手心向上是求人；助人快樂，求人痛苦。
返回列表 上一主題