Alexei GennadevichВсем доброго времени суток!

Собственно вопрос в теме.

Прочитал в инете, что надо использовать событие SlideShowNextSlide.
Написал в обычном модуле простой код:
Private Sub Application_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
MsgBox "Работает!!!"
End Sub
Однако при смене слайда ничего не происходит. Так же нашел, что надо создать класс WithEvents. В одном сообщение был указан такой синтаксис:
Public WithEvents App As Application
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
'Код макроса
End Sub
Однако у меня ругается как раз на WithEvents в первой сроке. Пишет "only valid in object module".
Перенес этот код в classmodule. Ругаться перестал, но все равно при смене слайдов ничего не происходит(((
Подскажите, что не так?

Выложи пример своих мук, чтобы не воссоздавать.

Выложил пример как нужно, но все события работают только после выполнения процедуры
InitializeApp. В Поинте нет автозапуска макросов, по крайней мере явного, делают как то через надстройку - хочешь поищи на форуме, а если не в напряг, то нужно данную процедуры вручную или по кнопке предварительно запустить.