竞价艺术

Sub a()

For Each sld In ActivePresentation.Slides

    TotalShapes = sld.Shapes.Count

    For i = TotalShapes To 1 Step -1
        
       // Debug.Print sld.Shapes(i).Type
        
        If sld.Shapes(i).Type = msoFreeform Then

        sld.Shapes(i).Delete
        
        End If

    Next

Next

End Sub