返回列表 上一主題 發帖

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

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
1# 跳轉到 »
發表於 2015-12-18 12:54 | 顯示全部帖子
ActiveSheet.Pictures.Delete

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
2#
發表於 2015-12-18 16:14 | 顯示全部帖子
For Each SHP In ActiveSheet.DrawingObjects
　　If TypeName(SHP) = "Picture" Then SHP.Delete
Next

TOP

准提部林

帖子
2848 
主題
10 
精華
0 
積分
2903 
點名
0  
作業系統
〔略〕 
軟體版本
〔略〕 
閱讀權限
100 
性別
男 
來自
〔略〕 
註冊時間
2013-5-13 
最後登錄
2026-7-25 
3#
發表於 2015-12-18 17:40 | 顯示全部帖子
回復 7# morris_lth

DrawingObjects 為工作表中的〔全部〕〔物件〕，
使用〔編輯．到．特殊．物件〕．即可錄製程式碼！
TypeName(？)　可以取出括號內〔物件〕或〔內容〕的名稱或類型，
MsgBox TypeName(Range("A1"))　判定為 Range 物件，
MsgBox TypeName(Range("A1").Value)　則依Ａ１輸入的〔內容〕判定其類型


試試在工作表中放不同類型的物件：
For Each SHP In ActiveSheet.DrawingObjects
　　MsgBox TypeName(SHP)
Next

TOP

        靜思自在 : 待人退一步，愛人寬一寸，就會活得很快樂。
返回列表 上一主題