PPT的文字和图片的批量删除

1. 删除所有相同文字比较简单，直接查找并替换为空就可以了

2. 删除所有相同的图片就比较麻烦了，要用到宏
 1）打开文件，点击视图--宏，随便输入一个宏名，如：DeletePic，后点创建，在打开的宏编辑窗口输入如下代码，保存
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

 2) 找到需要批量删除的图片，点击一下选中，点视图--宏，点击刚建立的宏DeletePic，然后点运行，就批量删除当前文件中所有的幻灯片中的相同图片了