2024年1月2日发(作者：)

如果形状是做在母版中的，比较简单，直接进入母版去删。本文介绍的是如何删除不在母版中，但是又是相同的图片或形状或文本框。这些要删除的形状有共同的特征就是，要么是名字一样，要么是说明一样，要么是内容一样。作为个引子，大家还可以继续发挥，找到要删除形状的共同属性，把类似位置一样，颜色一样、尺寸一样的也删除掉。本文就不一一展开了。以PowerPoint 2007为例：1、“视图”->“宏”，输入宏名DeleteShapes后（宏名可任意），创建宏，并在模块中添加以下代码：''''''''''''''''''''''''''''''''''''''''''''''''''''''如何在PPT中批量删除相同的形状：图片、文本框等'''''''''''''''''''''''''''''''''''''''''''''''''''''Sub DeleteShapes()Dim SelSlide As Slide'Dim SelPicName As String '控件有标题名字'Dim SelPicText As String '没名字只有说明的Dim SelText As String '文本框Dim i As Long If = ppSelectionNone Then MsgBox ("请选中待删除的形状！") Elsess' SelPicName = ' SelPicName = ativeText SelText =

If vbYes = MsgBox("是否要删除所有幻灯片中的同样的形状：“" + SelText + "”？",

vbYesNo, "信息提示") Then 'SelText相应替换为SelPicName或SelPicText For Each SelSlide In On Error Resume Next

'(SelPicName).Delete '删有名字的最简单，直接删 For i = 1 To '没名字的得匹配相关属性 'If (i).AlternativeText = SelPicText Then If (i). = SelText Then (i).Delete End If Next Next End If End IfEnd Sub保存回到ppt中，选择要删除的形状，执行宏，即可！