VBA для powerpoint. Событие смена слайда.

[Golden_RUS]

Ветки для VBA for PP нет, по этому пишу тут. Нужно дергать консольное приложение через функцию shell при смене слайда (или при открытии слайда), передавая номер слайда как параметр.

[Golden_RUS]

Решил проблему костылями. Мб кому пригодится.

Dim lp As Boolean, last As Integer, now As Integer
Private Sub Start_Button_Click()
 On Error Resume Next
 last = 0
 lp = True
    While lp
        DoEvents
            now = ActivePresentation.SlideShowWindow.View.Slide.SlideIndex
            If now <> last Then
                last = now
                'Вызов shell тут
                
            End If
            If last = 6 Then
                lp = False
            End If
    Wend
End Sub

ps Код вешается на нажатие на кнопку на 1 слайде.