如果插入一張圖片，復(fù)制粘貼到多張幻燈片中,，PPT生成的名字通常都是一樣的,。

你可以使用下面的VBA。以下VBA程序只能刪除所有幻燈片中同名的圖片,。但是如果你把它們一個一個的插入到多張幻燈片中,，生成的名字通常是不一樣的，這種情況下你也為力,。

以PowerPoint 2007為例：

1.“視圖”-“宏”,。輸入宏名DeletePic(宏名可以是任意的)后，創(chuàng)建一個宏并添加以下代碼：

Sub DeletePic()

將SelSlide調(diào)成幻燈片

Dim SelPicName作為字符串

如果ActiveWindow,。Selection.Type=ppSelectionNone那么

MsgBox('請選擇要刪除的圖片,！')

其他

SelPicName=ActiveWindow。Selection.ShapeRange.Name

If vbYes=MsgBox('是否從所有幻燈片中刪除同名圖片' SelPicName 'vbYesNo,，“”)然后

對于ActivePresentation中的每個SelSlide,。幻燈片

出錯時繼續(xù)下一步

SelSlide,。形狀(SelPicName),。刪除

然后

如果…就會結(jié)束

如果…就會結(jié)束

末端接頭

2.回到PowerPoint窗口后，選中幻燈片中要刪除的圖片,，點擊視圖-宏,，選中剛剛創(chuàng)建的宏，運行它刪除所有內(nèi)部同名的圖片,。