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

(完整word)如何在PPT中删除相同的图片、形状、文本框(完整word)如何在PPT中删除相同的图片、形状、文本框(完整word)如何在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中,选择要删除的形状，执行宏，即可！