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

《如何快速删除多张ppt上的多张一样的图.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、如果是插入图片后使用复制并粘贴到多个幻灯片，则PPT为其生成的名字通常是相同的那可使用以下VBA，以下VBA程序只能删除所有幻灯片中名字相同的图片。但如果逐个插入到多个幻灯片中，那生成的名字通常是不同的，这种情况下就无能为力了。以PowerPoint2007为例：1、“视图”->“宏”，输入宏名DeletePic后（宏名可任意），创建宏，并添加以下代码：SubDeletePic()DimSelSlideAsSlideDimSelPicNameAsStringIfActiveWindow.Selection.Type=ppSelectionNoneThenMsgBox("请选中待删除的图

2、片！")ElseSelPicName=ActiveWindow.Selection.ShapeRange.NameIfvbYes=MsgBox("是否要删除所有幻灯片中的同名图片“"+SelPicName+"”？",vbYesNo,"信息提示")ThenForEachSelSlideInActivePresentation.SlidesOnErrorResumeNextSelSlide.Shapes(SelPicName).DeleteNextEndIfEndIfEndSub2、回到PowerPoint的窗口后，选择需要幻灯片中一个需要删除的图片，点击“视图”->“宏”，选择刚才创建的

3、宏，并运行，即可删除所有内部名字相同的图片。