How do I reverse the entire presentation for use in a teleprompter

  • Thread starter Thread starter Richard Hundhausen
  • Start date Start date
... and use PowerPoint to run my notes. How do I get the whole
presentation
to reverse, so it shows correctly in the mirror? Third party solutions are
fine.
Click to expand...


One quick solution is to save the whole presentation in an image format
(File - Save as - PNG or JPG) and mirror those images in an image editing
program (even freeware programs like IrfanView can do this as a batch
process). Then re-insert those images to PowerPoint.

Best regards,
Ute
 
Any other ideas? That one kind of sucks.

Ute Simon said:
One quick solution is to save the whole presentation in an image format
(File - Save as - PNG or JPG) and mirror those images in an image editing
program (even freeware programs like IrfanView can do this as a batch
process). Then re-insert those images to PowerPoint.

Best regards,
Ute
Click to expand...
 
Actually, that probably isn't as difficult as it sounds.

Write some code to loop through each of the slides.

On Each slide, loop through each shape

For each shape,

save it as a picture
add a new shape (picture) that uses the picture you just created as its
source
Rotate the picture (activewindow.selection.shaperange.flip
msoFlipHorizontal)
Then, to make sure it appears the same way in reverse, you will need to
reposition it on the page so that its right side is the same distance from
the right margin as the left side was from the original left margin.

If you record a macro and do this once, it should be relatively easy to take
it to the next step by looping through each of your slides and the shapes in
a slide. The only hard part will be figuring out the new Left property for
the image, and thats just a matter of figuring out the total width of the
slide and setting:

newShape.left = SlideWidth - newshape.width - oldShape-left

or something like that.

HTH

--
Don''t forget to rate the post if it was helpful!

email address is invalid
Please reply to newsgroup only.
 
I forgot, you will also have to delete the original shape.

you might also have to play with the output format of the picture to get a
clear image that doesn't bloat your presentation too much.

Good luck
--
Don''t forget to rate the post if it was helpful!

email address is invalid
Please reply to newsgroup only.
 
Richard

When you say Ute's idea "kind of sucks" I 'm supposing that you really mean
"I can see that's the only way but it would take a long time"

As Dale suggests it could be automated. You might like to play with this
code and see if it will help

Sub reverso()
Dim opres As Presentation
Dim Icount As Integer
Dim i As Integer
Dim c As Integer
Dim opic As Shape
Dim osld As Slide

Set opres = ActivePresentation
Icount = opres.Slides.Count
opres.SaveAs Environ("TEMP") & "\myslides", ppSaveAsPNG

For i = 1 To Icount
Set osld = opres.Slides(i)
For c = osld.Shapes.Count To 1 Step -1
osld.Shapes(c).Delete
Next c

Set opic = osld.Shapes.AddPicture(Environ("TEMP") & _
"\myslides\slide" & CStr(i) & ".png" _
, msoFalse, msoCTrue, 0, 0, opres.PageSetup.SlideWidth, _
opres.PageSetup.SlideHeight)
opic.Flip (msoFlipHorizontal)
Next
End Sub
--
Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk
 
Yes, I'm in a buy vs. build kind of mood today. Thank you for the code. It
seems to work great. You should blog it and/or list it on the Alchemy site.

-Rich
 
John,

Any particular reason you chose PNG as your format?

--
Don''t forget to rate the post if it was helpful!

email address is invalid
Please reply to newsgroup only.
 
Back
Top