批量删除PPT透明图片水印（ppt2019）

DD1103YF
1.输入：

2.算法：
Sub DeletePic()
Dim SelSlide As Slide
Dim SelPicName As String
If ActiveWindow.Selection.Type = ppSelectionNone Then
MsgBox (” please choice a picture！ “)
Else
SelPicName = ActiveWindow.Selection.ShapeRange.Name
If vbYes = MsgBox(” are you sure delete the picture with the same name of “” + SelPicName + ” ” ？”, vbYesNo, ” information! “) Then
For Each SelSlide In ActivePresentation.Slides
On Error Resume Next
SelSlide.Shapes(SelPicName).Delete
Next
End If
End If
End Sub
操作步骤：
打开ppt2019；随意起一个宏名字，创建宏；删除全部内容；复制代码到编辑器中；关闭宏，回到PPT，选择一张图片；选择宏，运行即可；文字水印使用替换功能即可