請問如何把圖片del

basarasy

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

victorl

回復 1# basarasy


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

HUNGCHILIN

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

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

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

basarasy

回復 4# HUNGCHILIN

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

HUNGCHILIN

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

basarasy

回復 6# HUNGCHILIN

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

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

出現錯誤><

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

GBKEE

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

basarasy

回復 8# GBKEE

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

oobird

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

GBKEE

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