如何批量删除ppt幻灯片内容

发布网友发布时间：2023-09-11 13:43

共2个回答

热心网友时间：2023-11-11 00:30

下面演示PPT批量删除幻灯片的操作流程：

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

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

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

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

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

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

热心网友时间：2023-11-11 00:30

Sub DeleteDuplicateShapes()

Dim SelSlide As Slide

Dim SelShape As Shape

Dim ShapeName As String

' 检查是否选中了形状

If ActiveWindow.Selection.Type = ppSelectionNone Then

MsgBox "请选中待删除的图片或文本框!"

Else

' 获取选中形状的名称

Set SelShape = ActiveWindow.Selection.ShapeRange(1)

ShapeName = SelShape.Name

' 确认是否要删除所有幻灯片中的同名图片或文本框

If MsgBox("是否要删除所有幻灯片中的同名图片或文本框: " & ShapeName & " ?", vbYesNo, "信息提示") = vbYes Then

' 遍历每个幻灯片

For Each SelSlide In ActivePresentation.Slides

' 尝试删除同名的形状

On Error Resume Next

SelSlide.Shapes(ShapeName).Delete

On Error GoTo 0

Next SelSlide

End If

End Sub

————————————————————————

要运行此宏，请按照以下步骤操作：

打开 PowerPoint 文件。

选中要删除的图片或文本框

按 Alt + F11 打开 Visual Basic for Applications 编辑器。

在编辑器中，插入一个新的模块，然后将上述代码粘贴到模块中。

返回 PowerPoint，按 Alt + F8 打开宏对话框。

选择 "DeleteDuplicateShapes" 宏，然后点击 "运行" 按钮。