(2021年整理)如何在PPT中删除相同的图片、形状、文本框

1、如何在ppt中删除相同的图片、形状、文本框l 如何在ppt中删除相同的图片、形状、文本框ll l 编辑整理：lllll 尊敬的读者朋友们：l 这里是精品文档编辑中心，本文档内容是由我和我的同事精心编辑整理后发布的，发布之前我们对文中内容进行仔细校对，但是难免会有疏漏的地方，但是任然希望（如何在ppt中删除相同的图片、形状、文本框）的内容能够给您的工作和学习带来便利。同时也真诚的希望收到您的建议和反馈，这将是我们进步的源泉，前进的动力。l 本文可编辑可修改，如果觉得对您有帮助请收藏以便随时查阅，最后祝您生活愉快 业绩进步，以下为如何在ppt中删除相同的图片、形状、文本框的全部内容。ll 如果形状

2、是做在母版中的，比较简单,直接进入母版去删。l 本文介绍的是如何删除不在母版中,但是又是相同的图片或形状或文本框。这些要删除的形状有共同的特征就是，要么是名字一样,要么是说明一样,要么是内容一样。l 作为个引子，大家还可以继续发挥,找到要删除形状的共同属性,把类似位置一样，颜色一样、尺寸一样的也删除掉。本文就不一一展开了。以powerpoint 2007为例：1、“视图”-“宏”，输入宏名deleteshapes后（宏名可任意）,创建宏，并在模块中添加以下代码：如何在ppt中批量删除相同的形状：图片、文本框等sub deleteshapes（)dim selslide as slidedim

3、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 sel

4、text = 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