Вызов подпрограммы при загрузке определенного слайда или по таймеру

Question

Я работаю с презентацией PowerPoint 2003 для дисплея киоска, и он работает почти круглосуточно.На одном слайде есть погода, текущая дата и прогноз на 7 дней.

Я уже написал сабвуферы, которые будут обновлять погоду из рабочей книги Excel и обновлять отображаемые даты, но сейчас мне приходится обновлять ее вручную при входе. Есть ли способ, которым я могувызывать подпрограмму (например, UpdateSlide()), когда слайд-шоу достигает этого конкретного слайда?Похоже, что нет никакого официального способа сделать это, я полагаю, по соображениям безопасности, но как насчет запланированного события, такого, что оно будет называться, скажем, каждые шесть часов?

Answer 1

Используйте встроенное событие OnSlideShowPageChange:

Public Sub OnSlideShowPageChange(ByVal Wn As SlideShowWindow)
   If Wn.View.CurrentShowPosition = 3 Then
       'Perform Updates for slide #3
   EndIf
End Sub

Редактировать: Как указал kcoppock, вы можете поместить этот код в любой модуль.

Answer 2

Событие SlideShowNextSlide - это то, что вам нужно.См. Как записать изменение слайдов PowerPoint в файл? , чтобы узнать, как его использовать.