返回列表 上一主題 發帖

[發問] 清除sheet內的圖片,要如何預防連command button 也一併被刪除

PKKO
　暱稱: PKKO

高中生Rank: 3Rank: 3

帖子
549 
主題
152 
精華
0 
積分
691 
點名
0  
作業系統
WIN7 
軟體版本
OFFICE 2010 
閱讀權限
50 
性別
男 
註冊時間
2013-8-10 
最後登錄
2022-9-7 

論壇榮譽勳章論壇贊助勳章
1# 跳轉到 »
發表於 2015-12-19 23:55 | 顯示全部帖子
回復 9# 准提部林


    感謝版大,我從以前就一直不宣告程式碼,但實際上不是因為快速,而是因為不知道型態
有了TypeName,就可以知道所有的型態了,非常感謝版大

因為每次看高手寫程式碼,都會強制宣告,避免錯誤,但自己無法辦到,現在就可以知道所有的型態了,感謝版大
且
For Each SHP In ActiveSheet.DrawingObjects
        If TypeName(SHP) = "Picture" Then SHP.Delete
    Next

這段程式碼也很好用哦!感恩!
PKKO

TOP

        靜思自在 : 布施如播種，以歡喜心滋潤種子，才會發芽。
返回列表 上一主題