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

《如何在PPT中删除相同的图片、形状、文本框.doc》由会员上传分享，免费在线阅读，更多相关内容在行业资料-天天文库。

1、l如果形状是做在母版中的，比较简单，直接进入母版去删。l本文介绍的是如何删除不在母版中，但是又是相同的图片或形状或文本框。这些要删除的形状有共同的特征就是，要么是名字一样，要么是说明一样，要么是内容一样。l作为个引子，大家还可以继续发挥，找到要删除形状的共同属性，把类似位置一样，颜色一样、尺寸一样的也删除掉。本文就不一一展开了。以PowerPoint2007为例：1、“视图”->“宏”，输入宏名DeleteShapes后（宏名可任意），创建宏，并在模块中添加以下代码：''''''''''''''''''''''''''''''''''''''

2、''''''''''''''''如何在PPT中批量删除相同的形状：图片、文本框等'''''''''''''''''''''''''''''''''''''''''''''''''''''SubDeleteShapes()DimSelSlideAsSlide'DimSelPicNameAsString'控件有标题名字'DimSelPicTextAsString'没名字只有说明的DimSelTextAsString'文本框DimiAsLongIfActiveWindow.Selection.Type=ppSelectionNoneThenMsgB

3、ox("请选中待删除的形状！")Elsess'SelPicName=ActiveWindow.Selection.ShapeRange.Name'SelPicName=ActiveWindow.Selection.ShapeRange.AlternativeTextSelText=ActiveWindow.Selection.ShapeRange.TextFrame.TextRange.TextIfvbYes=MsgBox("是否要删除所有幻灯片中的同样的形状：“"+SelText+"”？",vbYesNo,"信息提示")Then'SelTe

4、xt相应替换为SelPicName或SelPicTextForEachSelSlideInActivePresentation.SlidesOnErrorResumeNext'SelSlide.Shapes(SelPicName).Delete'删有名字的最简单，直接删Fori=1ToSelSlide.Shapes.Count'没名字的得匹配相关属性'IfSelSlide.Shapes.Item(i).AlternativeText=SelPicTextThenIfSelSlide.Shapes.Item(i).TextFrame.TextR

5、ange.Text=SelTextThenSelSlide.Shapes.Item(i).DeleteEndIfNextNextEndIfEndIfEndSub保存回到ppt中，选择要删除的形状，执行宏，即可！