1. 請問我在VBA中想讓一個特定的sheet內的特定范圍內的圖片進行刪除，不是這個范圍之內的不用刪除
比如你要刪除sheet3當中單元格A1：F30區域的所有圖片，用以下代碼
Subtest()
DimwsAsWorksheet,MyShapeAsShape
ForEachwsInWorksheets
Ifws.Name="Sheet3"Then
For喊雹EachMyShapeInws.Shapes
譽敗IfMyShape.Type=13AndNotApplication.Intersect(MyShape.TopLeftCell,ws.Range("A1:F30"))IsNothingThen
鄭虛帆MyShape.Delete
EndIf
Next
EndIf
Next
EndSub
2. vba 清空excel內容
在excel中，按Alt+F11，在左側導航欄點局碼擊右鍵→插入→模塊。在右側輸入代碼：
Sub 清除()
Sheets(2).Cells.ClearContents
End Sub
3. VBA刪去圖表
Sheets("graph"跡團).ChartObjects.Delete 『這句寫在開帆賣頭就可以了態州逗吧
4. Word | 一次刪除文檔中的所有表格和圖片
一、一次刪除文檔中的所有表格
WORD長文檔中，經常含有很多表格。有時候，我們需要把這些表格刪除。當然，我們可以一個一個的選中再刪除，但，如果你的文檔中的表格很多，或是表格位置不固定，這種逐一刪除的方法顯然不可取。
韓老師給一段代碼，能一次刪除文檔中所有表格。
實現方法：
韓老師隨便建一個有很多表格的文檔：
5. 怎麼用vba編的程序調用cad里的全選和刪除圖形的命令
在歷明你的襲昌程序拍爛扒前面加上
Dim obj As AcadObject
For Each obj In ThisDrawing.ModelSpace
obj.Delete
Next
6. vba 怎樣一次把某單元格範圍的shape刪除
輸入對應的代碼，逐個工作表批量讓答刪除所有形狀對象。
_ublic Sub Del_Shapes()
_im sht As Worksheet
_im p As Shape
_im arr(), n%
_or Each sht In Worksheets
_or Each p In sht.Shapes
_f p.Type = 1 Then n = n + 1
_eDim Preserve arr(1 To n):
_rr(n) = p.Name
_ext p
_f n > 0 Then sht.Shapes.Range(arr).Delete
_ = 0
_ext sht
_nd Sub
_isual Basic for Applications（稿扒簡稱VBA）是新一代標准宏語言，是基坦敬慧於Visual Basic for Windows 發展而來的。
7. CAD VBA 如何刪除框外的所有圖形
這個跟VBA有什麼關系嗎？
CAD的擴展工掘碼具（EXPRESS TOOL，CAD自帶的，需安裝）里有一個增強裁剪EXTRIM功能，可以設置裁剪封閉多頌穗段線內部或外部的圖形，不過這么復雜的圖形裁剪後會是什麼結果不好說了。
還有比較簡單的方法，將圖形做成圖塊，然後用XC裁剪功能進行裁剪，可以將外部的或內部判櫻哪圖形隱藏。
更詳細的介紹請關注我的公眾號，上面有相關文章
8. VBA 如何清除 excel中的各種按鈕
假設要清楚Sheet1中的各種按鈕，在爛滑余VBA中復制如下語句，運行即可：
Sub
main（）飢滾
Sheet1.DrawingObjects.Delete
end
sub
關於此例中用到的DrawingObjects的相關知識：
VBA中圖形對象一般使用Shapes，但Shapes不支持Select方法，只支持Selectall，也不支持Delete方法，所以在對圖形對象進行刪除時，就要用到圖形對象集合的另外一個稱呼——DrawingObjects對象，以下代碼為選擇活動工作表中的所有圖形對象：
Activesheet.DrawingObjects.Select
當然除了支持Select方法，DrawingObjects還支持Delete方法讓陸，所以對於圖形對象進行刪除時，就可以用上述例子中的語句來實現，即：
Activesheet.DrawingObjects.Delete