如何批量删除ppt中的同一图片

1、首先打开需要编辑的PPT幻灯片，进入到编辑首页中。

2、然后点击打开视图中的“宏”。

3、然后在弹出来的窗口中输入一个宏名，点击打开“新建”。

4、然后在弹出来的窗口中输入以下的代码。

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 If

End Sub

5、回到 PowerPoint 的窗口后，选择需要幻灯片中一个需要删除的图片，
点击“视图 ”->“宏”，选择刚才创建的宏，并运行，即可删除所有内部名字相同的图片。

图片若不是在ppt幻灯片母版插入的，只能一张张删除，不能批量删除，只有在幻灯片母版里插入的，才能批量删除幻灯片里的同一张图片，以ppt2007为例，批量删除的方法如下：

1. 打开ppt，点击“视图”下的“幻灯片母版”；

   

2. 先选中幻灯片母版中的第一张母版缩略图，然后在版面里找到那张要删掉的图片，右击它，选择“剪切”，再点击“关闭母版视图”，这样每张幻灯片相同的图片都去掉了。

   

再从母版中删除就可以了、