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

(完整word)如何在PPT中删除相同的图片、形状、文本框
l 如果形状是做在母版中的，比较简单,直接进入母版去删。

l 本文介绍的是如何删除不在母版中，但是又是相同的图片或形状或文本框。这些要删除的形状有共同的特征就是，要么是名字一样，要么是说明一样，要么是内容一样.

l 作为个引子，大家还可以继续发挥，找到要删除形状的共同属性，把类似位置一样,颜色一样、尺寸一样的也删除掉。本文就不一一展开了。
以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 ActiveWindow。Selection.Type = ppSelectionNone Then
MsgBox （"请选中待删除的形状！”)
Elsess
' SelPicName = ActiveWindow。Selection。ShapeRange.Name
' SelPicName = ActiveWindow。Selection。ShapeRange。AlternativeText
SelText = ActiveWindow.Selection.ShapeRange。TextFrame。TextRange.Text

If vbYes = MsgBox("是否要删除所有幻灯片中的同样的形状：“" + SelText + ""？”， vbYesNo， "信息提示"） Then 'SelText相应替换为SelPicName或SelPicText
For Each SelSlide In ActivePresentation.Slides
On Error Resume Next
’SelSlide.Shapes(SelPicName).Delete '删有名字的最简单，直接删

For i = 1 To SelSlide。Shapes。Count '没名字的得匹配相关属性
’If SelSlide.Shapes。Item（i）。AlternativeText = SelPicText Then
If SelSlide。Shapes。Item（i）。TextFrame。TextRange。Text = SelText Then
SelSlide。Shapes。Item（i）.Delete
End If
Next
Next
End If
End If
End Sub

保存

回到ppt中,选择要删除的形状，执行宏，即可！