批量删除ppt上同一文件名的每页上面一样的图1.视图-----宏-----宏名（随便输入）-----创建2. 粘贴以下的代码：Sub Del
etePic()Dim SelSlide As SlideDim SelPicName As StringIf ActiveWin
dow.Selection.Type = ppSelectionNone Then MsgBox ("请选中待删除的图片！") E
lseSelPicName = ActiveWindow.Selection.ShapeRange.NameIf vbYes =
MsgBox("是否要删除所有幻灯片中的同名图片“" + SelPicName + "”？", vbYesNo, "信息提示")
ThenFor Each SelSlide In ActivePresentation.SlidesOn Error Resume
NextSelSlide.Shapes(SelPicName).DeleteNextEnd IfEnd Sub3.关闭宏4.打开
要处理的ppt，选中要处理的每页相同位置的图片、文字等5. 视图-----宏-----选择宏名-----运行 |
|
