如何简单的宏功能快速删除同一个ppt上的多张一样的图或者元素
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 Sub
注意：网上的相关教程都无法使用，只有经过我这个修改的才能使用
页:
[1]