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