View Single Post
 
Old 07-07-2017, 09:23 AM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,914
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

There's no built in way to do that. fairly easy if you can code though.

If you name the shapes on first and last slides to match (In my case username and password) this sort of code would work and could easily be extended to other shapes.

Code:
Sub copyText()

Dim firstsld As Slide
Dim lastsld As Slide
Set firstsld = ActivePresentation.Slides(1)
Set lastsld = ActivePresentation.Slides(ActivePresentation.Slides.Count)
lastsld.Shapes("username").TextFrame.TextRange = firstsld.Shapes("username").TextFrame.TextRange
lastsld.Shapes("password").TextFrame.TextRange = firstsld.Shapes("password").TextFrame.TextRange
End Sub
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote