如果是插入图片后使用复制并粘贴到多个幻灯片,则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
【ppt怎么删除图片 快速删除多张PPT上的一样的图片方法】2、回到PowerPoint的窗口后,选择需要幻灯片中一个需要删除的图片,点击“视图”->“宏”,选择刚才创建的宏,并运行,即可删除所有内部名字相同的图片 。
推荐阅读
- 仲父吕不韦是怎么死的
- 2020血王宫回忆怎么三星通关
- 怎么查看虚拟内存使用情况 如何查看虚拟机内存使用情况
- word文档表格文字行距怎么设置 word文档怎么改变表格中文字行距
- 技嘉b360小雕主板怎么样 技嘉b460小雕主板怎么样
- 肚子有蛔虫怎么办 如何判断宝宝是否有蛔虫呢
- 产品关键词库汇总系统(怎么建立热门关键词库 怎么建立热门关键词库)
- 微信转移聊天记录怎么转移 如何转移聊天记录微信
- 早孕了怎么办 一定要想清楚
- 得了脑血栓怎么办 怎么治疗轻微脑梗塞最有效