选择了图片之后,你想干什么呢?
Sub tt()
Dim mm As Shape
For Each mm In ActiveSheet.Shapes
If mm.Type 8 And mm.Type 12 Then '排除按钮
'处理图片,如mm.delete删除
mm.delete
End If
Next
End Sub