ppt怎么批量删除每页相同位置的图片、文字等等

使用场景：比如logo图片不是在ppt幻灯片母版插入的，而是在每张ppt的右下角作为前景图片插入的，那么一张张删除的话工作量巨大，所以需要批量删除。

步骤：

1、首先打开需要编辑的PPT幻灯片，点击打开视图中的“宏”：

2、然后在弹出来的窗口中输入一个宏名，选择宏作用于当前ppt还是所有打开的ppt，然后点击“创建”。

3、然后在弹出来的窗口中复制粘贴以下的代码（注意：窗口默认带有的代码全部不要）：

Sub Test() Dim oSlide As Slide, oShape As Shape Dim myWidth As Single, myHeight As Single, myTop As Single, myLeft As Single On Error Resume Next If ActiveWindow.Selection.ShapeRange.Count <> 1 Then If Err.Number <> 0 Then MsgBox "none" & vbCrLf & "choose one", vbExclamation + vbOKOnly Err.Clear Exit Sub End If MsgBox "choose exceed 1" & vbCrLf & "choose one", vbExclamation + vbOKOnly Exit Sub End If Set oShape = ActiveWindow.Selection.ShapeRange(1) myTop = oShape.Top myLeft = oShape.Left myHeight = oShape.Height myWidth = oShape.Width For Each oSlide In ActivePresentation.Slides For Each oShape In oSlide.Shapes If Abs(myTop - oShape.Top) < 1 And Abs(myLeft - oShape.Left) < 1 And Abs(myHeight - oShape.Height) < 1 And Abs(myWidth - oShape.Width) < 1 Then oShape.Delete End If Next Next End Sub

如图：

4、回到 ppt的窗口，先选中需要删除的图片，然后点击“视图 ”->“宏”，选择刚才创建的宏，并运行，即可删除所有相同位置的图片。