麻辣家族討論版版 » Excel程式區 » 清除sheet內的圖片,要如何預防連command button 也一併被刪除

返回列表下一主題上一主題發帖

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

中學生 Rank: 2

帖子: 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: 2

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

2^#

發表於 2015-12-18 14:47 | 顯示全部帖子

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

中學生 Rank: 2

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

3^#

發表於 2015-12-18 15:58 | 顯示全部帖子

回復 4# rouber590324

我還是會阿~
參閱附件

Book2.rar (38.95 KB)

中學生 Rank: 2

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

4^#

發表於 2015-12-18 16:33 | 顯示全部帖子

回復 6# 准提部林

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

中學生 Rank: 2

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

5^#

發表於 2015-12-23 15:14 | 顯示全部帖子

回復 12# c_c_lai

謝謝大家的幫忙~

靜思自在 : 為自己找藉口的人永遠不會進步。

返回列表下一主題上一主題