Excel VBA高级编程:删除指定单元格里的图片的VBA代码

高级编程:删除指定单元格里的图片的VBA代码

Sub 删除()

dim x as Integer
 For x = 1 To Sheet1.Shapes.Count
   If Sheet1.Shapes(x).TopLeftCell.Address = "$A$1" Then
     Sheet1.Shapes(x).Delete
   End If
 Next x
End Sub

如果有多个图片：

Sub 删除()

dim x as Integer
 For x = Sheet1.Shapes.Count To 1 step -1
   If Sheet1.Shapes(x).TopLeftCell.Address = "$A$1" Then
     Sheet1.Shapes(x).Delete
   End If
 Next x
End Sub