如果是插入图片后使用复制并粘贴到多个幻灯片，则PPT为其生成的名字通常是相同的那可使用以下VBA，以下VBA程序只能删除所有幻灯片中名字相同的图片。但如果逐个插入到多个幻灯片中，那生成的名字通常是不同
如果是插入图片后使用复制并粘贴到多个幻灯片，则PPT为其生成的名字通常是相同的
那可使用以下VBA，以下VBA程序只能删除所有幻灯片中名字相同的图片。但如果逐个插入到多个幻灯片中，那生成的名字通常是不同的，这种情况下就无能为力了。
以PowerPoint 2007为例：
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 If
End Sub
2、回到PowerPoint的窗口后，选择需要幻灯片中一个需要删除的图片，点击“视图”->“宏”，选择刚才创建的宏，并运行，即可删除所有内部名字相同的图片。
本站部分文章来自网络或用户投稿，如无特殊说明或标注，均为本站原创发布。涉及资源下载的，本站旨在共享仅供大家学习与参考，如您想商用请获取官网版权，如若本站内容侵犯了原著者的合法权益，可联系我们进行处理。