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

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

以PowerPoint 2007為例：

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

Sub DeletePic()

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

Dim SelPicName作為字符串

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

MsgBox('請(qǐng)選擇要?jiǎng)h除的圖片,！')

其他

SelPicName=ActiveWindow。Selection.ShapeRange.Name

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

對(duì)于ActivePresentation中的每個(gè)SelSlide,。幻燈片

出錯(cuò)時(shí)繼續(xù)下一步

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

然后

如果…就會(huì)結(jié)束

如果…就會(huì)結(jié)束

末端接頭

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