TPE

Tavvafi@gmail.com

≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡≡

Sub FixNotesPageShapeOrder()

    Dim oSl As Slide
    Dim oSh As Shape

    For Each oSl In ActivePresentation.Slides
        ' Send body text to back first
        Set oSh = NotesBodyPlaceholder(oSl)
        If Not oSh Is Nothing Then
            oSh.ZOrder (msoSendToBack)
        End If
        ' Then slide image so
        Set oSh = NotesSlidePlaceholder(oSl)
        If Not oSh Is Nothing Then
            oSh.ZOrder (msoSendToBack)
        End If
        ' and now the order is Slide Image, Body Text, Otherstuff
    Next

End Sub

Function NotesBodyPlaceholder(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
                ' Found it!
                Set NotesBodyPlaceholder = oSh
            End If
        End If
    Next
End Function

Function NotesSlidePlaceholder(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 = ppPlaceholderTitle Then
                ' Found it!
                Set NotesSlidePlaceholder = oSh
            End If
        End If
    Next

End Function