admin 管理员组文章数量: 887031
2023年12月22日发(作者：scalarview)
(完整word)如何在PPT中删除相同的图片、形状、文本框
如果形状是做在母版中的，比较简单,直接进入母版去删。
本文介绍的是如何删除不在母版中，但是又是相同的图片或形状或文本框。这些要删除的形状有共同的特征就是，要么是名字一样，要么是说明一样，要么是内容一样.
作为个引子，大家还可以继续发挥，找到要删除形状的共同属性，把类似位置一样,颜色一样、尺寸一样的也删除掉。本文就不一一展开了。
以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。 = ppSelectionNone Then
MsgBox （"请选中待删除的形状！”)
Elsess
' SelPicName = ActiveWindow。Selection。
' SelPicName = ActiveWindow。Selection。ShapeRange。AlternativeText
SelText = ange。TextFrame。
If vbYes = MsgBox("是否要删除所有幻灯片中的同样的形状：“" + SelText + ""？”， vbYesNo，
"信息提示"） Then 'SelText相应替换为SelPicName或SelPicText
For Each SelSlide In
On Error Resume Next
’(SelPicName).Delete '删有名字的最简单，直接删
For i = 1 To SelSlide。Shapes。Count '没名字的得匹配相关属性
’If 。Item（i）。AlternativeText = SelPicText Then
If SelSlide。Shapes。Item（i）。TextFrame。TextRange。Text = SelText Then
SelSlide。Shapes。Item（i）.Delete
End If
Next
(完整word)如何在PPT中删除相同的图片、形状、文本框
Next
End If
End If
End Sub
保存
回到ppt中,选择要删除的形状，执行宏，即可！
版权声明：本文标题：(完整word)如何在PPT中删除相同的图片、形状、文本框 内容由网友自发贡献，该文观点仅代表作者本人， 转载请联系作者并注明出处：http://www.freenas.com.cn/free/1703233608h443345.html， 本站仅提供信息存储空间服务，不拥有所有权，不承担相关法律责任。如发现本站有涉嫌抄袭侵权/违法违规的内容，一经查实，本站将立刻删除。
发表评论