Не отображаются изменения в графике

[gluk_fm]

Добрый день.
Уважаемые програмисты, знаю что пишу не только по Екеселю, но может кто-то сможет мне помочь....
Ситуация следующая - я создал небольшие процедурки (макрос - "Play") для красивого отображения графиков в презентации (конечно через ексель), но когда модуль работает и график находится в таблице ексель - то движение происходит нормально (шарик двигается вверх с задержками), а когда тот же график переношу в презентацию то в режиме через Ф8 - движение показывает, а как только запускаю через Ф5 (автоматически) - всё зависает и отображается только на конечной точке.
В вложении пример.
Спасибо.

[Watcher_1]

Поменяйте ваш Play на этот

Sub play()
Dim MyExcelFile As Excel.Workbook, i

Application.ActivePresentation.Slides(1).Shapes(1).Chart.ChartData.Activate

Set MyExcelFile = ActiveWorkbook

i = 2
Do Until MyExcelFile.Worksheets("filtr").Cells(i, 1) = ""
    DoEvents
    Range("G1") = MyExcelFile.Worksheets("filtr").Cells(i, 1)
    i = i + 1
    
       LockWindowUpdate False
    Application.Activate
    Application.ActivePresentation.Slides(1).Shapes(1).Chart.DisplayBlanksAs = xlInterpolated
    Sleep (100)
Loop
MyExcelFile.Close

End Sub

[gluk_fm]

Огромнейшее, спасибо.
Вы как всегда на высоте, я правда его ещё добавил на лист расчётов (в параметр изменения ячейки) - и всё работет просто отлично.
Хорошего вечера.

[gluk_fm]

Добрый день.
Уважаемые програмисты, не могли бы Вы подсказать как открыть листбокс в презентации (PowerPoint) и как там можно отловить процедуру наведения мышки на график? Знаю что вопрос пустяковый. но к концу недели уже так затуркался что ничего не могу сделать.
Спасибо.