如何在PPT中删除相同的图片形状文本框【范本模板】.docxVIP

如果形状是做在母版中的  ,比较简单，直接进入母版去删。 本文介绍的是怎样删除不在母版中,可是又是相同的图片或形状或文本框 形状有共同的特点就是，要么是名字同样，要么是说明同样，要么是内容同样。  .这些要删除的 作为个引子，大家还能够持续发挥，找到要删除形状的共同属性， 色同样、尺寸同样的也删除去。本文就不一一展开了.  把近似地点同样，颜 以  PowerPoint2007  为例： 1、“视图”—“宏”,输入宏名DeleteShapes后（宏名可随意），创立宏，并在模块中增添 以下代码: ’’’’’’’’’’’’’’’’’’’’’’’’’ ’怎样在PPT中批量删除相同的形状:图片、文本框等 ’’’’’’’’’’’’’’’ SubDeleteShapes（) DimSelSlideAsSlide ’DimSelPicNameAsString控件有标题名字 DimSelPicTextAsString没名字只有说明的 DimSelTextAsString文本框 DimiAsLong IfActiveWindow.Selection。Type=ppSelectionNoneThen  ’’’’’’’  ’  ’  ’  MsgBox(”请选中待删除的形状！) Elsess SelPicName=ActiveWindow。 SelPicName=ActiveWindow。Selection。ShapeRange.AlternativeText SelText=ActiveWindow。 IfvbYes=MsgBox(”是否要删除所有幻灯片中的同样的形状：“+SelText+”？”， vbYesNo，信息提示”）Then’SelText相应替换为SelPicName或SelPicTextForEachSelSlideInActivePresentation.Slides OnErrorResumeNext SelSlide.Shapes(SelPicName).Delete删出名字的最简单，直接删 Fori=1ToSelSlide。Shapes.Count’没名字的得匹配有关属性 ’IfSelSlide。Shapes.Item(i）.AlternativeText=SelPicTextThen IfSelSlide。Shapes。Item（i).TextFrame.TextRange。Text=SelTextThen （i）。Delete EndIf Next Next EndIf EndIf EndSub 保留 回到ppt中,选择要删除的形状,履行宏，即可！