Office PPT 批量删除每页相同位置的内容（图片文字等）
使用场景：
- 比如logo图片不是在ppt幻灯片母版插入的，而是在每张ppt的右下角作为前景图片插入的，那么一张张删除的话工作量巨大，所以需要批量删除。
- 使用wps将pdf转为ppt，会将原始模板很多的固定模板内容提取成单独的实体图片等。
步骤：
- 打开需要处理的ppt，点击上方菜单栏“视图”中的“宏”
- 然后如图操作：
- 在弹出的窗口中输入（原始两行内容删掉）：
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接着连续关掉窗口：
此时宏就已经创建好了，接下来回到ppt，先选中需要重复删除的图片或文字，再点击“视图”中的“宏”，选择刚创建好的宏，然后点击运行，即可删除所有相同位置的图片：