插入圖片后，如果使用“復(fù)制”和“粘貼”粘貼到多張幻燈片中，PPT生成的名稱通常相同。

可以使用以下VBA:以下VBA程序只能從所有幻燈片中刪除同名的圖片。但是，如果在多張幻燈片中插入一張，則生成的名稱通常會有所不同，在這種情況下，您不能執(zhí)行任何操作。

以PowerPoint 2007為例。

1、查看-宏，輸入宏名稱DeletePic后(宏名稱為任意)，創(chuàng)建宏并添加以下代碼：

Sub DeletePic()

Dim SelSlide As Slide

Dim SelPicName As String

If Ac=ppSelectionNone Then

MsgBox(“請選擇要?jiǎng)h除的圖像！”)。

Else

SelPicName=Ac

If vbYes=MsgBox(“是否確實(shí)要從所有幻燈片中刪除同名圖片‘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窗口后，選擇幻燈片中需要?jiǎng)h除的圖片，單擊“視圖”-“宏”，選擇剛創(chuàng)建的宏，然后運(yùn)行，即可刪除所有內(nèi)部名稱相同的圖片。大衛(wèi)亞設(shè)(David Assell)，Northern Exposure(美國電視新聞)。