title: OnSlideShowPageChange not running in presentation
body: <p>I have been tasked with building an automated powerpoint to show new employees during onboarding. I decided to use the text-to-speech function of PPT to narrate the show. I came to the realization that this would require code, so I searched and found some code to use. When I start it within VBA, it runs. However, when in presentation mode, it doesn't fire the code. After hours of searching, I can't seem to find what I've done wrong. Any help is greatly appreciated. </p>
  
  <pre><code>Function SpeakThis(myPhrase As String)
  Dim oSpeaker As New SpeechLib.SpVoice
  
  'Set speech properties
  oSpeaker.Volume = 100 ' percent
  oSpeaker.Rate = 0.1 ' multiplier
  oSpeaker.SynchronousSpeakTimeout = 1
  oSpeaker.AlertBoundary = SVEWordBoundary
  
  If Not myPhrase = "" Then oSpeaker.Speak myPhrase, SVSFDefault
  End Function
  
  Sub OnSlideShowPageChange()
  Dim text As String
  Dim intSlide As Integer
  intSlide = ActiveWindow.Selection.SlideRange.SlideIndex
  
  text = ActivePresentation.Slides(intSlide).NotesPage.Shapes.Placeholders(2).TextFrame.TextRange.text
  SpeakThis text
  End Sub
  </code></pre>