Удаление всех диаграмм в слайде PowerPoint с помощью макроса Excel

Question

У меня есть следующий код: я пытаюсь удалить три диаграммы на слайде 4. Ниже удаляет две из них и оставляет одну, даже если она одного типа с двумя другими.Есть идеи, почему это может быть?

With PPApp.ActiveWindow
.View.GotoSlide Index:=4
For Each Chart In .View.slide.Shapes
    If Chart.Type = msoPicture Then
        Chart.Delete
    End If
Next