TPE

http://bayanbox.ir/view/263405954590585756/2mobile.png

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