Анимация диаграммы по сериям в PowerPoint с использованием VBA

Question

Я пытаюсь анимировать диаграмму по сериям в PowerPoint, используя VBA. Вот мой код:

With PPSlide.Shapes(1)
    With .AnimationSettings
        .EntryEffect = msoAnimEffectFade
        .ChartUnitEffect = ppAnimateBySeries
        .Animate = True
    End With
End With

Я сталкиваюсь с двумя ошибками в зависимости от порядка операций. Если я сначала пытаюсь выполнить .ChartUnitEffect, я получаю сообщение об ошибке "Настройки анимации (неизвестный член): недопустимый запрос. Извините, вы не можете установить эффекты диаграммы для объектов, которые не являются диаграммами.

Объект формы PPSlide.Shapes(1) определенно является моей диаграммой. Согласно Microsoft, этот тип формы e является диаграммой. См. документацию здесь.

Debug.Print PPSlide.Shapes(1).type

3

Если я переключаю порядок операций так, чтобы сначала попытаться выполнить .EntryEffect = msoAnimEffectFade, я получаю эту ошибку: Настройки анимации (неизвестный элемент): Неверное значение перечисления.

Документация от Microsoft выглядит довольно просто. Любая помощь была бы невероятной.