Удаление фигур в Powerpoint через Excel VBA

Question

В настоящее время я пытаюсь удалить фигуру на слайде в Excel и заменить ее новой.Странно то, что я достиг этого на слайде 6, а затем попытался повторить процесс на слайде 4;однако, он не удаляет форму, он просто вставляет новую форму поверх.Код, который я имею, показан ниже;ПРИМЕЧАНИЕ. Оба слайда имеют одинаковый формат, 2 заголовка и затем форму.ЕДИНСТВЕННОЕ отличие состоит в том, что на слайде 6 есть 2 текстовых поля заголовка и 1 поле вспомогательного заголовка , а затем форма.

Set Financials = Sheet20.Range("A17:C21")
Set Assumptions = Sheet45.Range("A1:C5")

'Choose slide number

Set FinSlide = PPTPrez.Slides(6)
Set AssumSlide = PPTPrez.Slides(4)

'If there is a table in powerpoint slide, delete the table

For Pic1Count = AssumSlide.Shapes.Count To 1 Step -1
    If AssumSlide.Shapes(Pic1Count).Type = msoPicture Then
        AssumSlide.Shapes(Pic1Count).Delete
    End If
Next

For PicCount = FinSlide.Shapes.Count To 1 Step -1
    If FinSlide.Shapes(PicCount).Type = msoPicture Then
        FinSlide.Shapes(PicCount).Delete
    End If
Next

Итак, вторая часть этого кода работает (FinSlide);Однако AssumSlide не делает.Есть мысли или помощь?