如何快速删除多张ppt上的多张一样的图

Sub DeletePic()
Dim SelSlide As Slide
Dim SelPicName As String
If ActiveWindow.Selection.Type = ppSelectionNone Then MsgBox ("请选中待删除的图片！") Else
SelPicName = ActiveWindow.Selection.ShapeRange.Name
If vbYes = MsgBox("是否要删除所有幻灯片中的同名图片“" + SelPicName + "”？", vbYesNo, "信息提示") Then
For Each SelSlide In ActivePresentation.Slides
On Error Resume Next
SelSlide.Shapes(SelPicName).Delete
Next
End If
End Sub

网络上的都是有问题的  这个经过修改可以使用