【多张ppt图片怎么删除】如何在多个PPT中快速删除同一图片

插入图片后，如果使用“复制”和“粘贴”粘贴到多张幻灯片中，PPT生成的名称通常相同。

可以使用以下VBA:以下VBA程序只能从所有幻灯片中删除同名的图片。但是，如果在多张幻灯片中插入一张，则生成的名称通常会有所不同，在这种情况下，您不能执行任何操作。

以PowerPoint 2007为例。

1、查看-宏，输入宏名称DeletePic后(宏名称为任意)，创建宏并添加以下代码：

Sub DeletePic()

Dim SelSlide As Slide

Dim SelPicName As String

If Ac=ppSelectionNone Then

MsgBox(“请选择要删除的图像！”)。

Else

SelPicName=Ac

If vbYes=MsgBox(“是否确实要从所有幻灯片中删除同名图片‘selpic name’？”，vbYesNo，'信息提示')Then

For Each SelSlide In Ac

On Error Resume Next

Selslide.shapes (selpicname)。delete

next

End If

End If

End Sub

2、回到PowerPoint窗口后，选择幻灯片中需要删除的图片，单击“视图”-“宏”，选择刚创建的宏，然后运行，即可删除所有内部名称相同的图片。大卫亚设(David Assell)，Northern Exposure(美国电视新闻)。