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

时间: 2020-02-12 / 分类: EXCEL编程VBA / 浏览次数: 79 views / 0个评论 发表评论

最近编辑网上下载的PPT,发现有些图片不想要,在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 的窗口后,选择需要幻灯片中一个需要删除的图片,点击“视图 ”->“宏”,选择刚才创建的宏,并运行,即可删除所有内部名字相同的图片。
https://zhidao.baidu.com/question/152799250.html

发表评论

你必须 登录后 才能留言!