|
|
Thread Tools | Display Modes |
#1
|
|||
|
|||
Help with VBA to keep source formatting when moving presenter notes over to existing presentation
Hi!
I'm hoping to edit this code (which works perfectly for plain text) to keep source formatting of the presenter notes when moving from "TEST1.pptx" to "TEST2.pptx". To be clear, this current code works for plain text, but I would like to edit it so that it keeps the source formatting. Is this possible and if so, could someone point me in the right direction? Thank you in advance! 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 oTarget.Slides(i).NotesPage.Shapes(2) _ .TextFrame.TextRange = _ oSource.Slides(i).NotesPage.Shapes(2) _ .TextFrame.TextRange Next i End Sub Last edited by alex311; 09-16-2021 at 09:43 AM. |
#2
|
|||
|
|||
Maybe .... (Not tested)
Code:
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.Paste Next i End Sub |
Tags |
vba code |
|
Similar Threads | ||||
Thread | Thread Starter | Forum | Replies | Last Post |
Change "Presenter View" layout, to put speaker Notes pane on top? | Kerumbo | PowerPoint | 2 | 05-30-2019 05:15 AM |
Copy a range in Excel to the notes of a PPT presentation | jeffreybrown | PowerPoint | 1 | 01-25-2018 05:28 AM |
Formatting Notes for Use in Presenter View | GBA | PowerPoint | 2 | 07-17-2015 12:11 PM |
See more notes in Presenter's View | lawlsh | PowerPoint | 0 | 05-01-2013 07:53 PM |
Lost notes formatting in Presenter View | c_rlucas | PowerPoint | 1 | 03-30-2012 12:41 AM |