删除PPT所有页面中同一个位置的图片

Sub DeletePicturesAtSelectedPosition()
    Dim i As Integer
    Dim j As Integer
    Dim pic As Shape
    Dim left As Single
    Dim top As Single
    
    '显示提示信息
    MsgBox "请在PPT中选择一个图片的位置。", vbInformation, "选择位置"
    
    '选择图片的位置
    With ActiveWindow.Selection
        left = .ShapeRange.Left
        top = .ShapeRange.Top
    End With
    
    '删除该位置的图片
    For i = ActivePresentation.Slides.Count To 1 Step -1
        For j = ActivePresentation.Slides(i).Shapes.Count To 1 Step -1
            If ActivePresentation.Slides(i).Shapes(j).Type = msoPicture Then
                Set pic = ActivePresentation.Slides(i).Shapes(j)
                If pic.Left = left And pic.Top = top Then
                    pic.Delete
                End If
            End If
        Next j
    Next i
End Sub

该宏会弹出一个提示框，提示用户在PPT中选择一个图片的位置。用户可以使用鼠标在PPT中选择一个图片的位置，然后点击“确定”按钮。然后，该宏会删除所有该位置的图片。