如何在PPT中删除相同的图片、形状、文本框

如果形状是做在母版中的，比较简单，直接进入母版去删。本文介绍的是如何删除不在母版中，但是又是相同的图片或形状或文本框。这些要删除的形状有共同的特征就是，要么是名字一样，要么是说明一样，要么是内容一样。作为个引子，大家还可以继续发挥，找到要删除形状的共同属性，把类似位置一样，颜色一样、尺寸一样的也删除掉。本文就不一一展开了。以PowerPoint2007为例：1、“视图”-“宏”，输入宏名DeleteShapes后（宏名可任意），创建宏，并在模块中添加以下代码：''''''''''''''''''''''''''''''''''''''''''''''''''''''如何在PPT中批量删除相同的形状：图片、文本框等'''''''''''''''''''''''''''''''''''''''''''''''''''''SubDeleteShapes()DimSelSlideAsSlide'DimSelPicNameAsString'控件有标题名字'DimSelPicTextAsString'没名字只有说明的DimSelTextAsString'文本框DimiAsLongIfActiveWindow.Selection.Type=ppSelectionNoneThenMsgBox(请选中待删除的形状！)Elsess'SelPicName=ActiveWindow.Selection.ShapeRange.Name'SelPicName=ActiveWindow.Selection.ShapeRange.AlternativeTextSelText=ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.TextIfvbYes=MsgBox(是否要删除所有幻灯片中的同样的形状：“+SelText+”？,vbYesNo,信息提示)Then'SelText相应替换为SelPicName或SelPicTextForEachSelSlideInActivePresentation.SlidesOnErrorResumeNext'SelSlide.Shapes(SelPicName).Delete'删有名字的最简单，直接删Fori=1ToSelSlide.Shapes.Count'没名字的得匹配相关属性'IfSelSlide.Shapes.Item(i).AlternativeText=SelPicTextThenIfSelSlide.Shapes.Item(i).TextFrame.TextRange.Text=SelTextThenSelSlide.Shapes.Item(i).DeleteEndIfNextNextEndIfEndIfEndSub保存回到ppt中，选择要删除的形状，执行宏，即可！