Board logo

標題: 請問如何把圖片del [打印本頁]
作者: basarasy    時間: 2010-6-27 12:05     標題: 請問如何把圖片del

Sheet2 有得多圖片想1次過del,但不可以del  Sheet2.
請高手指教.
作者: victorl    時間: 2010-6-27 12:53

回復 1# basarasy


試試這個   
For Each p In sheet2.Shapes
    On Error Resume Next
    p.delete
Next
作者: HUNGCHILIN    時間: 2010-6-27 15:34

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

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

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

1.在2007版 用   常用/尋找與選取/到/特殊/物件  會選取圖片等物件
2.然後按 鍵盤del
作者: basarasy    時間: 2010-6-27 15:37

回復 4# HUNGCHILIN

因為要重複做好多次我才用vba.
作者: HUNGCHILIN    時間: 2010-6-27 15:55

Sub Macro1()
ActiveSheet.DrawingObjects.Select
Selection.Delete
End Sub
作者: basarasy    時間: 2010-6-28 19:36

回復 6# HUNGCHILIN

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

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

出現錯誤><

現在我用 victorl 大大的vba ok了.
作者: GBKEE    時間: 2010-6-28 20:48

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

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

回復 8# GBKEE

我在Sheet1 的地方用程式碼 但我要del的地方是Sheet2  要什樣寫?
作者: oobird    時間: 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
避免誤刪圖片以外的物件！
作者: GBKEE    時間: 2010-6-29 07:33

回復 9# basarasy
    With Sheet2.DrawingObjects
         .Delete
     End With
作者: GBKEE    時間: 2010-6-29 19:45

回復 1# basarasy


   
  1. Sub Ex()
  2.     Sheet2.Pictures.Delete
  3. End Sub
複製代碼
作者: jntseng    時間: 2010-8-9 23:32

回復 9# oobird
可以問msopicture 是什麼東西,所指的意義是什麼呢?
作者: Hsieh    時間: 2010-8-9 23:40

回復 12# jntseng
MsoShapeType 列舉
指定一種圖案類型或多種圖案的範圍。
名稱 值 描述
msoAutoShape 1 快取圖案。
msoCallout 2 圖說文字。
msoCanvas 20 畫布。
msoChart 3 圖表。
msoComment 4 註解。
msoDiagram 21 資料庫圖表。
msoEmbeddedOLEObject 7 內嵌的 OLE 物件。
msoFormControl 8 表單控制項。
msoFreeform 5 手繪多邊形。
msoGroup 6 群組。
msoIgxGraphic 24 IGX 圖形
msoInk 22 筆跡
msoInkComment 23 筆跡註解
msoLine 9 折線圖
msoLinkedOLEObject 10 連結 OLE 物件
msoLinkedPicture 11 連結的圖片
msoMedia 16 媒體
msoOLEControlObject 12 OLE 控制項物件
msoPicture 13 圖片
msoPlaceholder 14 預留位置
msoScriptAnchor 18 指令碼錨點
msoShapeTypeMixed -2 混合圖案類型
msoTable 19 表格
msoTextBox 17 文字方塊
msoTextEffect 15 文字效果
作者: jntseng    時間: 2010-8-12 22:37

回復 13# Hsieh
謝謝指導,讓我可以多學到許多東西,感恩



歡迎光臨 麻辣家族討論版版 (http://forum.twbts.com/)