如何刪除Excel 2007工作表中的所有圖片?一個工作代碼的例子會很棒。使用Excel VBA刪除圖片
6
A
回答
5
Dim shape As Excel.shape
For Each shape In ActiveSheet.Shapes
shape.Delete
Next
8
最簡單的方法:
Activesheet.Pictures.Delete
或
Activesheet.Shapes.Delete
根據對象的類型,您的圖片是。
刪除所有圖片效率更高,然後迭代(循環)並逐個刪除它們。
+1
'Activesheet.Shapes.Delete'發生錯誤(對象不支持此方法) – 2016-01-25 00:00:37
1
刪除所有圖片或其他形狀,你可以遍歷所有這些,檢查類型:
Dim shape As Excel.shape
For Each shape In ActiveSheet.Shapes
Select Case shape.Type
Case msoPicture, msoMedia, msoShapeTypeMixed, msoOLEControlObject, msoAutoShape
shape.Delete
Case Else
'Do nothing
End Select
Next
在我的情況下,這個代碼是有用的,因爲我的表是豐滿型msoAutoShape的透明形狀的我以爲是圖片。所以,Activesheet.Pictures.Delete不起作用。
你可以找到這個鏈接上的所有形狀類型:http://msdn.microsoft.com/en-us/library/aa432678(v=office.12).aspx
相關問題
- 1. Excel VBA圖片
- 2. Excel vba Underscore。刪除_
- 3. 使用VBA刪除重複 - Excel 2003
- 4. 使用VBA刪除空行 - MS Excel
- 5. 使用VBA在Excel中刪除行
- 6. 用vba刪除一行excel vba
- 7. VBA Excel刪除重複行
- 8. 刪除重複項excel vba
- 9. 如何使用VBA從Excel圖表中刪除系列
- 10. Excel中 - 刪除行時刪除照片
- 11. 刪除圖片
- 12. 從VBA中的圖片的文件名刪除路徑
- 13. 使用CodeIgniter更新和刪除圖片
- 14. 使用CURL從Facebook中刪除圖片
- 15. 如何從excel文件中加載到PHPExcel中刪除/刪除圖形(圖表),圖片(圖片)?
- 16. Excel的VBA比較,條件,刪除
- 17. Excel VBA過濾器和刪除數據
- 18. Excel VBA-刪除部分字符串
- 19. Excel VBA詞典刪除項目
- 20. 優化/精簡Excel VBA刪除空列
- 21. Excel VBA從公式中刪除等號
- 22. Excel VBA union刪除列中的數據
- 23. 刪除整個排在Excel VBA
- 24. 刪除向量中的行VBA Excel
- 25. 如何刪除範圍Excel VBA的列
- 26. 刪除空白(空)列Excel VBA
- 27. VBA代碼以刪除Excel 2010中
- 28. Excel VBA從表中刪除過濾器
- 29. Excel VBA刪除重複vs篩選器
- 30. EXCEL VBA - 刪除列是否存在
我測試過它和它的作品 – 2010-12-18 21:42:17
注意,這會刪除數據透視圖(也可能是其他任何你選擇喜歡的圖片)。 – 2010-12-20 13:43:33
爲了防止它,假設您使用默認圖表名稱(「圖表1」,「圖表2」,...),您可以使用inString函數在循環內進行測試。 InStr(0,shape.name,「Chart」),所以如果不包含名字中的「Chart」,請跳過它。 – 2010-12-20 18:00:11