PPT使用VBA批量删除图形

原因

一般被分享的PPT都是转换成PDF格式，想要借鉴的时候，需要通过一些工具转换，转换后，原版的logo，页眉页脚什么都需要删除，如果PPT页数很多，就难以删除，因此有这篇文章

第一阶段方案

借鉴了http://www.dzwebs.net/4321.html这篇文章，写出来一些代码，这个是通过名称进行删除，但是当PPT使用了多个版式,容易错删其他页面的正常图形。
如果样式简单、版式比较单一，可以使用下面的代码：

Sub delshapes_withname()
    For Each sld In ActivePresentation.Slides
        For Each s In sld.Shapes
            If s.Name = "Object 8" Or s.Name = "Object 5" Then
                s.delelte
            End If
        Next
    Next
End Sub

第二阶段方案

由于以上的方案有很多缺陷，因此设计了一个新的方案，考虑容易操作灵活而不改动代码。
第一步，在PPT第一页之前插入一页,并删除页面上所有的图形,点击开始>编辑>选择>选择窗格,里面为空为止
第二步，把其他页面需要删除的东西复制粘贴到第一页空白PPT页面
第三步，在PPT的VBA中插入模块，粘贴以上代码
第四步，查