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