Microsoft Office Forums

Go Back   Microsoft Office Forums > >

Reply
 
Thread Tools Display Modes
  #1  
Old 09-15-2021, 10:35 AM
alex311 alex311 is offline Help with VBA to keep source formatting when moving presenter notes over to existing presentation Windows XP Help with VBA to keep source formatting when moving presenter notes over to existing presentation Office 2019
Novice
Help with VBA to keep source formatting when moving presenter notes over to existing presentation
 
Join Date: Sep 2021
Posts: 2
alex311 is on a distinguished road
Default 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.
Reply With Quote
  #2  
Old 09-16-2021, 09:21 AM
JohnWilson JohnWilson is offline Help with VBA to keep source formatting when moving presenter notes over to existing presentation Windows 10 Help with VBA to keep source formatting when moving presenter notes over to existing presentation Office 2016
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,912
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

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
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote
Reply

Tags
vba code

Thread Tools
Display Modes


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
Help with VBA to keep source formatting when moving presenter notes over to existing presentation 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
Help with VBA to keep source formatting when moving presenter notes over to existing presentation Lost notes formatting in Presenter View c_rlucas PowerPoint 1 03-30-2012 12:41 AM

Other Forums: Access Forums

All times are GMT -7. The time now is 08:33 AM.


Powered by vBulletin® Version 3.8.11
Copyright ©2000 - 2024, vBulletin Solutions Inc.
Search Engine Optimisation provided by DragonByte SEO (Lite) - vBulletin Mods & Addons Copyright © 2024 DragonByte Technologies Ltd.
MSOfficeForums.com is not affiliated with Microsoft