ppt怎么批量删除每页相同位置的图片（非母版图片）

youmeus

图片不是在ppt幻灯片母版插入的，而是在每张ppt的右下角作为图片插入的，如何批量删除？

ddxuchen

这样子的话，就只能用 PowerPoint 的 VBA 脚本批量操作了，方法如下：​​​
1、在“开始”选项卡中，点击“选择”>“选择窗格”。
2、确定你要删除的图片是在第几个图层（从下往上数）。
3、按 Alt+F11 打开 VBA 编辑器，在“插入”菜单中选择“模块”，粘贴以下代码：

1. Sub DeleteImagesInSamePosition()
   
2.     Dim slide As slide
   
3.     Dim shape As shape
   
4.     Dim delShape As shape
   
5.     Dim x As Single, y As Single
   
6.    
   
7.     ' 获取第一张幻灯片中图片的位置，Shapes() 里的数字就是上面获得的指定图层
   
8.     Set delShape = ActivePresentation.Slides(1).Shapes(1)
   
9.     x = delShape.Left
   
10.     y = delShape.Top
    
11.    
    
12.     ' 遍历所有幻灯片
    
13.     For Each slide In ActivePresentation.Slides
    
14.         For Each shape In slide.Shapes
    
15.             If shape.Left = x And shape.Top = y Then
    
16.                 shape.Delete
    
17.             End If
    
18.         Next shape
    
19.     Next slide
    
20. End Sub

复制代码

4、关闭 VBA 编辑器，然后切换到“视图”选项卡，点击“宏”，选择 DeleteImagesInSamePosition 运行。
5、所有的相同位置图片就批量删除了。

youmeus

ddxuchen 发表于 2025-2-19 13:57
这样子的话，就只能用 PowerPoint 的 VBA 脚本批量操作了，方法如下：​​​  
1、 ...

感谢大佬，找到了一个插件也可用。
请教您，如果如果想批量删除幻灯片母版中相同的图片，有方法吗？在网上暂时没查到

geziliu123

同求批量删除PPT中相似或相同图片的方法！