Автозапуск макроса со слайдом PowerPoint

Public DisplaySeconds As Double, StartTime As Double, StopTime As Double, FrmtString As String
 
Public Sub BreakLengthInSeconds_Change()
    DisplaySeconds = Me.BreakLengthInSeconds
    Me.Shapes(1).TextFrame.TextRange.Text = IIf(DisplaySeconds < 60, "время (00:", "") & DisplaySeconds
End Sub
 
Public Sub StartTimer_Button_Click()
 
On Error GoTo Trap
 
StartTime = Timer
StopTime = StartTime + Me.BreakLengthInSeconds
 
    Do While Timer < StopTime
        DoEvents
        DisplaySeconds = (StopTime - Timer) / 86400
        FrmtString = Format(DisplaySeconds, "h:m:ss")
        If Left(FrmtString, 2) = "0:" Then FrmtString = Mid(FrmtString, 3)
        
        Me.Shapes(1).TextFrame.TextRange.Text = "время (" & FrmtString & ")"
       
    Loop
    
    Me.Shapes(2).Visible = msoTrue
    
    SlideShowWindows(1).View.Next
    
Trap:
    Err = 0
    Me.StartTimer_Button.Caption = "Start Timer"
    Exit Sub
 
End Sub
 
Public Sub Slide1_SetFocus()
    Me.Shapes(2).Visible = msoTrue
    Me.Shapes(4).Visible = msoFalse
End Sub

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
   ' Здесь вызов Вашего кода
End Sub

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
   ' Здесь вызов Вашего кода
End Sub

Public WithEvents App As Application
 
Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    If SlideShowWindows(1).View.Slide.SlideNumber = 2 Then My_sub
End Sub

Private Sub App_SlideShowNextSlide(ByVal Wn As SlideShowWindow)
    If SlideShowWindows(1).View.Slide.SlideNumber > 2 Then StartTimer_Button_Click
End Sub