生成一段VBA，把excel工作簿里的图片删除

### 回答1：

Sub DeleteImages()
Dim Shp As Shape
For Each Shp In ActiveSheet.Shapes
Shp.Delete
Next Shp
End Sub

### 回答2：
在Excel VBA中删除工作簿中的图片可以使用以下代码：

Sub 删除图片()
    Dim ws As Worksheet
    Dim shp As Shape
    
    ' 设置目标工作簿
    Set ws = ThisWorkbook.Worksheets("Sheet1") '将 "Sheet1" 替换为你想要删除图片的工作表名称
    
    ' 执行删除图片操作
    For Each shp In ws.Shapes
        If shp.Type = msoPicture Then
            shp.Delete
        End If
    Next shp
    
    ' 释放对象引用
    Set ws = Nothing
    Set shp = Nothing
End Sub

这段VBA代码首先声明了一个工作表对象ws和一个图片对象shp。然后，将目标工作簿设置为想要删除图片的工作表（在这里假设为"Sheet1"）。接下来，通过循环遍历工作表中的所有形状对象，判断其是否为图片，如果是，则将其删除。最后，释放对象引用，以便释放内存。

你可以将上述代码复制到VBA编辑器中的一个模块中，并在需要删除图片时运行该宏即可。记得将 "Sheet1" 替换为你实际要删除图片的工作表名称。

### 回答3：
Sub DeletePictures()
Dim ws As Worksheet
Dim shp As Shape

' 循环遍历每个工作表
For Each ws In ThisWorkbook.Worksheets
' 循环遍历每个工作表中的形状
For Each shp In ws.Shapes
' 判断形状是否为图片
If shp.Type = msoPicture Then
' 删除图片
shp.Delete
End If
Next shp
Next ws
End Sub

上述VBA代码可以帮助你删除excel工作簿中的所有图片。首先，我们使用两个循环来遍历每个工作表和每个工作表中的形状。然后，我们检查每个形状的类型是否为图片(msoPicture)，如果是，我们就使用shp.Delete语句将其删除。执行完该宏后，所有的图片均会被从工作簿中删除。