Powerpoint slide notes

[Chris]

Using VBA, how can I get the slide notes for the current slide displaying in
a Slide Show?

Thanks,
Chris

 

[Steve Rindsberg]

Using VBA, how can I get the slide notes for the current slide displaying in
a Slide Show?

Sub NotesText()
' watch for linebreaks;
Dim x as Long
With SlideshowWindows(1).View.Slide.NotesPage
For x = 1 to .Shapes.Count
' Is it a placeholder?
If .Shapes(x).Type = msoPlaceholder Then
' is it a body text placeholder?
If .Shapes(x).PlaceholderFormat.Type = ppPlaceHolderBody Then
' You found it
Msgbox .Shapes(x).TextFrame.TextRange.Text
End If
End If
Next ' x
End With
End Sub

 

[Chris]

Thanks, that was exactly the code I needed .

Chris