批量删除ppt上同一文件名的每页上面一样的图

1.视图-----宏-----宏名（随便输入）-----创建

2. 粘贴以下的代码：

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

3.关闭宏

4.打开要处理的ppt，选中要处理的每页相同位置的图片、文字等

5. 视图-----宏-----选择宏名-----运行