请问:在PPT文件中,如何一次性删除每页幻灯片中相同的图片或文本框?

发布网友 发布时间：2022-03-03 06:28

我来回答

共6个回答

热心网友 时间：2022-03-03 07:57

删除文本框和图片的操作是相同的，都是点边框，这里以删除文本框举例。

1、首先，我们打开有想要删除的文本框的那一张幻灯片，在文本框内点击，我们可以看到文本框周围的虚线边框线会出现，这个时候我们并没有将这个文本框选中。

2.、然后，我们在文本框的虚线上点击一下，这时候文本框的虚线框变为实线框，这样我们才是真正的选中了这个文本框，如图。

3、 最后，当我们选中这个文本框之后，在键盘上按下“Delete”键，如下图中红色方框标出处。

4、 经过以上操作，我们选中的文本框就被我们删除了。

热心网友 时间：2022-03-03 09:15

1.使用vba编程删除，这是高手们的做法，一般较难操作。
2.删除相同的图片和文本，换句话，让他们看不见了，是不是“删除”。
原理是使用一个和底色一样颜色的矩形，将你所要删的东西遮住，即达到删除的目的。
操作是：回到母版视图，到正文页，建立这样的一个矩形，颜色设为同底色一样，遮盖住图片或文本框，关闭母版视图，即可。

热心网友 时间：2022-03-03 10:50

一般来说，这种每页都有的文本框名字都是固定的，如：rectangle26.
那就编写VBA,按名字一页页找到并删除。

热心网友 时间：2022-03-03 12:41

如果不在母版中那只能一张一张来删了，

热心网友 时间：2022-03-03 14:49

如果不是在母版中，是没有办法一次删除的，因为每张幻灯片这时是独立的。不过我可以交你一个不太常规的方式。这一招是我摸索出来的绝招，一般人我不告诉的。看你悬赏分是0分，我这个独*索的知识还要考虑下要不要告诉你。

热心网友 时间：2022-03-03 17:14

For Each sl In ActivePresentation.Slides '遍历幻灯片
For i = sl.Shapes.Count To 1 Step -1 '遍历shape对象
If sl.Shapes.Item(i).Type = 14 Or sl.Shapes.Item(i).Type = 17 Then '若为文本框或标题文本框，且文本包含“示例”，则删除文本框
If sl.Shapes.Item(i).TextFrame.TextRange.Text Like "*www.wallslab.net*" Then sl.Shapes.Item(i).Delete
End If
Next i
Next sl