Удалить все, НО графики в презентации PPT?

Question

Я хочу удалить все в моей презентации 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

Answer 1

Вы можете добавить Not для достижения этой цели, т.е. изменить

If sld.Shapes(i).HasChart Then

до

If Not 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