TPE
Tavvafi@gmail.com |
≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡
Function NotesTextPlaceholder(oSl As Slide) As Shape Dim osh As Shape For Each osh In oSl.NotesPage.Shapes If osh.Type = msoPlaceholder Then If osh.PlaceholderFormat.Type = ppPlaceholderBody Then ' we found it Set NotesTextPlaceholder = osh Exit Function End If End If Next End Function Sub TestNotesTextPlaceholderFunction() Dim osh As Shape Set osh = NotesTextPlaceholder(ActivePresentation.Slides(1)) If Not osh Is Nothing Then Debug.Print osh.TextFrame.TextRange.Text End If End Sub