【PPT】图片一键删除代码

Mintkitty

求PPT一键删除图片的VBA代码，目前只可以一键添加
求大神帮忙~通过下面的代码将图片一键添加了
Sub copyPict()
                ActiveWindow.Selection.ShapeRange.Copy
                For i = 2 To 5   '复制到2～5号幻灯片中
                     ActivePresentation.Slides.Range.Item(i).Shapes.Paste
                Next
          End Sub


但是现在需要一键删除，遇到两个问题
第一条代码
Sub DeletePic()
Dim SelSlide As Slide
Dim SelPicName As String

If ActiveWindow.Selection.Type = ppSelectionNone Then         MsgBox ("请选中待删除的图片！")
Else
SelPicName = ActiveWindow.Selection.ShapeRange.Name         If vbYes = MsgBox("是否要删除所有幻灯片中的同名图片“" + SelPicName + "”？", vbYesNo, "信息提示") Then
For Each SelSlide In ActivePresentation.Slides
On Error Resume Next
SelSlide.Shapes(SelPicName).Delete
Next
End If
End If
End Sub
这个代码是运行中有问题，运行IF缺少，语句有问题，求大神解答

第二条代码
Sub delPic()
    For Each sld In ActivePresentation.Slides
        For Each s In sld.Shapes
            If s.Type = msoPicture Then s.Delete
        Next
    Next
End Sub
这个代码是可以删除，但是将PPT里所有图片都删除了
本人只是想删除一键添加的图片


求各位大神帮忙解答一下感激不尽啊~~

Mintkitty

Mintkitty

用代码一键添加的图片名称都不一样