帖子: 27
主題: 11
精華: 0
積分: 56
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-15
最後登錄: 2023-10-27

1^# 跳轉到 » 倒序看帖

字體大小: tT

發表於 2015-12-18 11:51 | 只看該作者

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

我寫了一小段程式,清除SHEET內所有的圖片,但是他會連同控制的command button 也一被刪除
這種現象要如何處理?

Private Sub CommandButton_Clear_Click()
chose = MsgBox("是否清除儲存格內所有資料", vbYesNo + vbQuestion, "提示")
   Select Case chose
   Case vbYes
      Range(Cells(1, 1), Cells(65536, 256)).ClearContents '清除A1~IV65536儲存格資料
      ActiveSheet.Shapes.SelectAll                      '選擇所有圖片(Barcode)
      Selection.Delete                                  '刪除圖片
      Cells(1, 1).Select
   Case vbNo
   End Select
End Sub

樓主熱帖

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

2^#

發表於 2015-12-18 12:54 | 只看該作者

ActiveSheet.Pictures.Delete

TOP

morris_lth

中學生 Rank: 2

帖子: 27
主題: 11
精華: 0
積分: 56
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-15
最後登錄: 2023-10-27

3^#

發表於 2015-12-18 14:47 | 只看該作者

沒用阿,CommandButton 一樣會被刪掉.....

TOP

rouber590324

高中生 Rank: 3 Rank: 3

帖子: 561
主題: 160
精華: 0
積分: 725
點名: 0
作業系統: WINDOWS
軟體版本: xp
閱讀權限: 50
性別: 男
來自: 桃園
註冊時間: 2014-9-10
最後登錄: 2024-8-7

論壇榮譽勳章論壇贊助勳章熱烈參與勳章

4^#

發表於 2015-12-18 15:13 | 只看該作者

不會阿  我TEST就OK 只會刪圖片

chose = MsgBox("是否清除儲存格內所有資料", vbYesNo + vbQuestion, "提示")
   Select Case chose
   Case vbYes
      Range(Cells(1, 1), Cells(65536, 256)).ClearContents '清除A1~IV65536儲存格資料
      ActiveSheet.Pictures.Delete
      Cells(1, 1).Select
   Case vbNo
   End Select

羅

TOP

morris_lth

中學生 Rank: 2

帖子: 27
主題: 11
精華: 0
積分: 56
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-15
最後登錄: 2023-10-27

5^#

發表於 2015-12-18 15:58 | 只看該作者

回復 4# rouber590324

我還是會阿~
參閱附件

Book2.rar (38.95 KB)

TOP

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

6^#

發表於 2015-12-18 16:14 | 只看該作者

For Each SHP In ActiveSheet.DrawingObjects
　　If TypeName(SHP) = "Picture" Then SHP.Delete
Next

TOP

morris_lth

中學生 Rank: 2

帖子: 27
主題: 11
精華: 0
積分: 56
點名: 0
作業系統: WINXP
軟體版本: OFFICE2003
閱讀權限: 20
性別: 男
註冊時間: 2015-9-15
最後登錄: 2023-10-27

7^#

發表於 2015-12-18 16:33 | 只看該作者

回復 6# 准提部林

真是謝謝幫忙,能否稍微解釋一下,雖然只有短短2行,看的我一頭霧水
現在正在GOOGLE..ing

TOP

ikboy

中學生 Rank: 2

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

2016猴年全勤獎章

8^#

發表於 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

准提部林

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 2834
主題: 10
精華: 0
積分: 2890
點名: 0
作業系統: 〔略〕
軟體版本: 〔略〕
閱讀權限: 100
性別: 男
來自: 〔略〕
註冊時間: 2013-5-13
最後登錄: 2024-11-25

9^#

發表於 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

PKKO

　暱稱: PKKO

高中生 Rank: 3 Rank: 3

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

論壇榮譽勳章論壇贊助勳章

10^#

發表於 2015-12-19 23:55 | 只看該作者

回復 9# 准提部林

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

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

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

PKKO

TOP