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批量删除幻灯片的操作流程：

一、首先讲一下删除连续的幻灯片，首先进入“大纲”界面，按住鼠标左键拖动。

二、鼠标拖动后即可选中连续的多个幻灯片，这时点击“删除”即可。

三、如果是要删除不连续的，这时可以按住Ctrl键不放，逐个点击需要删除的幻灯片。

四、如下图，这时即可选中这些不连续的幻灯片，最后点击“删除”即可。

五、还有一种情况就是只想保留指定的几张幻灯片，其余全部删除的话，可以在大纲中Ctrl+A全选，然后切换到“幻灯片”。

六、在幻灯片列表中按着Ctrl键不放，点击需要保留的几张幻灯片，最后点击“删除”即可删除其余的幻灯片。