返回列表 上一主題 發帖

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

ikboy

帖子
262 
主題
8 
精華
0 
積分
280 
點名
16  
作業系統
xp 
軟體版本
Office 2007 
閱讀權限
20 
性別
男 
來自
HK 
註冊時間
2015-8-11 
最後登錄
2024-3-28 

2016猴年全勤獎章
1# 跳轉到 »
發表於 2015-12-18 17:11 | 顯示全部帖子
Please read https://msdn.microsoft.com/EN-US/library/office/ff860759.aspx
Sub zz()
Dim x()
For Each s In ActiveSheet.Shapes
    If s.Type = 13 Then s.Delete
Next
End Sub

TOP

        靜思自在 : 不怕事多，只怕多事。
返回列表 上一主題