Can you globally undo manual resizing of many PP notes pages?

  • Thread starter Thread starter Guest
  • Start date Start date
G

Guest

I manually resized over 200 slides and textboxes in PP note pages before I
discovered the note master option.

Can I restore the default settings (undo my manual resizing) and just use
the note master to reposition my note pages so they look uniform?
 
Maybe this vba will help - run it on a COPY of your presentation! It may need
a little tweaking depending on the notes master.

Sub noter()
Dim osld As Slide
Dim i As Integer
For Each osld In ActivePresentation.Slides
For i = 2 To 3
osld.NotesPage.Shapes("Rectangle " & i).Top = _
ActivePresentation.NotesMaster.Shapes("Rectangle " & i + 2).Top
osld.NotesPage.Shapes("Rectangle " & i).Left = _
ActivePresentation.NotesMaster.Shapes("Rectangle " & i + 2).Left
osld.NotesPage.Shapes("Rectangle " & i).Width = _
ActivePresentation.NotesMaster.Shapes("Rectangle " & i + 2).Width
osld.NotesPage.Shapes("Rectangle " & i).Height = _
ActivePresentation.NotesMaster.Shapes("Rectangle " & i + 2).Height
Next i
Next osld
End Sub

How to use vba
http://www.pptalchemy.co.uk/vba.html
http://pptfaq.com/FAQ00033.htm
 
Back
Top