Is it possible to "Mirror" a slide in a presentation?

JohnWilson · #2 07-07-2017, 09:23 AM

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

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Why is it so hard to "Restrict Access" to a PowerPoint presentation?	hip2b2	PowerPoint	0	05-12-2016 07:25 AM
Random paragraphs aligned "in mirror"	Marius	Word	2	08-12-2015 02:30 AM
Remove footer "A presentation by John Citizen, XX Month" from PowerPoint handouts	herdmasa	PowerPoint	2	04-08-2013 01:36 AM
How to "Fast Forward" or "Jump into" a slide while testing	George Daly	PowerPoint	1	10-14-2011 06:49 AM
How to choose a "List" for certain "Heading" from "Modify" tool?	Jamal NUMAN	Word	2	07-03-2011 03:11 AM