在未使用母版的情况下，如何一键删除每页PPT的统一元素

使用工具：PowerPoint的VBA

步骤：
1.输出每页PPT包含的元素名称

Sub ListShapeNames()
    Dim sld As Slide
    Dim shp As Shape
    For Each sld In ActivePresentation.Slides
        Debug.Print "Slide " & sld.SlideIndex
        For Each shp In sld.Shapes
            Debug.Print shp.Name
        Next shp
    Next sld
End Sub

2.获得需要删除元素的名称

3.删除该元素（示例：删除每个幻灯片中名为“Icon”的对象）

Sub DeleteIcons()
    Dim sld As Slide
    Dim shp As Shape
    For Each sld In ActivePresentation.Slides
        For Each shp In sld.Shapes
            If shp.Name = "Icon" Then
                shp.Delete
            End If
        Next shp
    Next sld
End Sub

OK！