如何快速删除多张ppt上的多张一样的图42521.pdf

《如何快速删除多张ppt上的多张一样的图42521.pdf》由会员分享，可在线阅读，更多相关《如何快速删除多张ppt上的多张一样的图42521.pdf（1页珍藏版）》请在淘文阁 - 分享文档赚钱的网站上搜索。

如果是插入图片后使用复制并粘贴到多个幻灯片，则 PPT 为其生成的名字通常是相同的 那可使用以下 VBA，以下 VBA 程序只能删除所有幻灯片中名字相同的图片。但如果逐个插入到多个幻灯片中，那生成的名字通常是不同的，这种情况下就无能为力了。以 PowerPoint 2007 为例：1、“视图”-“宏”，输入宏名 DeletePic 后（宏名可任意），创建宏，并添加以下代码：Sub DeletePic()Dim SelSlide As Slide Dim SelPicName As String If =ppSelectionNone Then MsgBox(请选中待删除的图片！)Else SelPicName=If vbYes=MsgBox(是否要删除所有幻灯片中的同名图片“+SelPicName+”,vbYesNo,信息提示)Then For Each SelSlide In On Error Resume Next (SelPicName).Delete Next End If End If End Sub 2、回到 PowerPoint 的窗口后，选择需要幻灯片中一个需要删除的图片，点击“视图”-“宏”，选择刚才创建的宏，并运行，即可删除所有内部名字相同的图片。