Vba 删除PPT演示文稿中除图表以外的所有内容？

我想删除powerpoint演示文稿中的所有内容，除了已经存在的图表。我找了一天都没找到

然而，我发现这个VBA删除了所有图表。不幸的是，这与我试图实现的目标恰恰相反。我尝试过使用其他代码中的VBA并添加它，但没有任何帮助。任何帮助都将不胜感激

Sub RemoveAllCharts()
    Dim sld As Slide
    Dim i, num

'Loop Through Each Slide in ActivePresentation   
  For Each sld In ActivePresentation.Slides
    num = sld.Shapes.Count
    For i = num To 1 Step -1
        If sld.Shapes(i).HasChart Then
            sld.Shapes(i).Delete
        End If
    Next i
  Next sld
End Sub

---

您可以添加

而不是
来实现这一点，即更改

If sld.Shapes(i).HasChart Then

到


您可以添加
而不是
来实现这一点，即更改

If sld.Shapes(i).HasChart Then

到


Sub RemoveAllButCharts()
    Dim sld As Slide
    Dim i As Long, num As Long

    'Loop Through Each Slide in ActivePresentation
    For Each sld In ActivePresentation.Slides
        num = sld.Shapes.Count
        For i = num To 1 Step -1
            If Not sld.Shapes(i).HasChart Then
                sld.Shapes(i).Delete
            End If
        Next i
     Next sld
End Sub