PPT批量删除相同图片
使用宏
Sub DeletePic()
Dim SelSlide As Slide
Dim SelPicName As String
If ActiveWindow.Selection.Type = ppSelectionNone Then
MsgBox (" 请选中待删除的图片! ")
Else
SelPicName = ActiveWindow.Selection.ShapeRange.Name
For Each SelSlide In ActivePresentation.Slides
On Error Resume Next
SelSlide.Shapes(SelPicName).Delete
Next
End If
End Sub