basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

1^# 跳轉到 » 倒序看帖

打印

字體大小: tT

發表於 2010-6-27 12:05 | 只看該作者

請問如何把圖片del

Sheet2 有得多圖片想1次過del,但不可以del Sheet2.
請高手指教.

樓主熱帖

50 字節以內
不支持自定義 Discuz! 代碼

victorl

中學生 Rank: 2

帖子: 65
主題: 0
精華: 0
積分: 120
點名: 0
作業系統: Win 7
軟體版本: Office 2010
閱讀權限: 20
性別: 男
註冊時間: 2010-5-15
最後登錄: 2010-7-16

2^#

發表於 2010-6-27 12:53 | 只看該作者

回復 1# basarasy

試試這個
For Each p In sheet2.Shapes
On Error Resume Next
p.delete
Next

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

3^#

發表於 2010-6-27 15:34 | 只看該作者

本帖最後由 HUNGCHILIN 於 2010-6-27 15:36 編輯

這篇不用vba就可以解決
用到vba? 可能把他複雜化了

+++++++++++++++++++++++++++++++++++++++++++
用"到"這個功能就可以解決

1.在2007版用常用/尋找與選取/到/特殊/物件會選取圖片等物件
2.然後按鍵盤del

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

4^#

發表於 2010-6-27 15:37 | 只看該作者

回復 4# HUNGCHILIN

因為要重複做好多次我才用vba.

50 字節以內
不支持自定義 Discuz! 代碼

TOP

HUNGCHILIN

　暱稱: 阿吉
　頭銜: 不恥下問,不斷學習,才會進步

版主 Rank: 7 Rank: 7 Rank: 7

帖子: 647
主題: 190
精華: 24
積分: 1037
點名: 0
作業系統: windows7
軟體版本: Office 2010 ; OOO3.0 ; Google
閱讀權限: 100
性別: 男
來自: 竹南
註冊時間: 2010-5-2
最後登錄: 2022-6-24

貴賓勳章熱烈參與勳章好學求知勳章

5^#

發表於 2010-6-27 15:55 | 只看該作者

Sub Macro1()
ActiveSheet.DrawingObjects.Select
Selection.Delete
End Sub

Hung-Chi Lin/林宏吉
HUNGCHILIN/林宏吉的OFFICE專欄

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

6^#

發表於 2010-6-28 19:36 | 只看該作者

回復 6# HUNGCHILIN

謝謝你

但有個問題,是我要del Sheet2的圖.
之後我改成

Sheet2.Range("B1").Select
ActiveSheet.DrawingObjects.Select
Selection.Delete

出現錯誤><

現在我用 victorl 大大的vba ok了.

50 字節以內
不支持自定義 Discuz! 代碼

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

7^#

發表於 2010-6-28 20:48 | 只看該作者

回復 7# basarasy
Sheet2.Range("B1").Select
請問執行這程式碼時作用中的工作表是Sheet2嗎?
如不是當然會錯誤的

TOP

basarasy

中學生 Rank: 2

帖子: 287
主題: 65
精華: 0
積分: 357
點名: 0
作業系統: xp
軟體版本: OFFIC 2007
閱讀權限: 20
註冊時間: 2010-6-4
最後登錄: 2015-8-19

8^#

發表於 2010-6-28 21:13 | 只看該作者

本帖最後由 basarasy 於 2010-6-28 21:33 編輯

回復 8# GBKEE

我在Sheet1 的地方用程式碼但我要del的地方是Sheet2 要什樣寫?

50 字節以內
不支持自定義 Discuz! 代碼

TOP

oobird

　頭銜: 街友一族

超級版主 Rank: 8 Rank: 8

帖子: 1572
主題: 16
精華: 2
積分: 1521
點名: 0
作業系統: xp
軟體版本: office 2003
閱讀權限: 150
性別: 男
註冊時間: 2010-5-1
最後登錄: 2016-1-13

論壇貢獻勳章

9^#

發表於 2010-6-28 22:34 | 只看該作者

本帖最後由 oobird 於 2010-6-28 22:38 編輯

Sub yy()
Dim shp As Shape
For Each shp In Sheet2.Shapes
If shp.Type = msoPicture Then shp.Delete
Next
End Sub
避免誤刪圖片以外的物件！

TOP

GBKEE

超級版主 Rank: 8 Rank: 8

帖子: 5923
主題: 13
精華: 1
積分: 5986
點名: 0
作業系統: win10
軟體版本: Office 2010
閱讀權限: 150
性別: 男
來自: 台灣基隆
註冊時間: 2010-5-1
最後登錄: 2022-1-23

2017 雞年全勤獎章 2016猴年全勤獎章 2015羊年全勤獎章 2014馬年全勤獎章 2013蛇年全勤獎章 2012龍年全勤獎章論壇貢獻勳章熱烈參與勳章 2011兔年全勤獎章

10^#

發表於 2010-6-29 07:33 | 只看該作者

回復 9# basarasy
With Sheet2.DrawingObjects
.Delete
End With

TOP