Hi (several years later) - this code worked perfectly for me as well, but is it possible to modify the code to keep the source formatting of the presentation notes when moving over to the new presentation? I tried the following code, but it doesn't work very well (doesn't keep the font sizes after slide 1, completely breaks after slide 8). Is there a better way to do this?
Sub switchNotes()
Dim oTarget As Presentation
Dim oSource As Presentation
Dim i As Integer
On Error Resume Next
Set oTarget = Presentations("TEST2.pptx")
Set oSource = Presentations("TEST1.pptx")
For i = 1 To oSource.Slides.Count
oSource.Slides(i).NotesPage.Shapes(2) _
.TextFrame.TextRange.Copy
oTarget.Slides(i).NotesPage.Shapes(2) _
.TextFrame.TextRange.PasteSpecial (ppPasteRTF)
Next i
End Sub
Thanks!
|