ppt怎么删除图片?快速删除多张PPT上的一样的图片方法

ppt怎么删除图片?快速删除多张PPT上的一样的图片方法

如果是插入图片后使用复制并粘贴到多个幻灯片,则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的窗口后,选择需要幻灯片中一个需要删除的图片,点击“视图”->“宏”,选择刚才创建的宏,并运行,即可删除所有内部名字相同的图片。