如何批量删除ppt中的同一图片.docxVIP

1、首先打开需要编辑的baiPPT幻灯片du，进入到编辑首页中。zhi 2、然后点击打开视图中的“宏”。 3、然后在弹dao出来的窗口中输入一个宏名，点击打开“新建”。 4、然后在弹出来的窗口中输入以下的代码。 Sub DeletePic() Dim SelSlide As Slide Dim SelPicName As String If ActiveWindow.Selection.Type = ppSelectionNone Then MsgBox ( 请选中待删除的图片！ ) Else SelPicName = ActiveWindow.Selection.ShapeRange.Nam