Home | Contact Us | FAQ | Search & Site Map | Link to Us
Sign In | Join | Other 45 Sites in Network
Home
DiscussionsAccessExcelInfoPathOutlookPowerPointPublisherWord
DirectoryUser Groups
Related Topics
Outlook ExpressInternet ExplorerWindowsMS Server ProductsMore Topics ...

MS Office Forum / General PowerPoint Questions / March 2008

Tip: Looking for answers? Try searching our database.

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

Thread view: 
Enable EMail Alerts  Start New Thread
Thread rating: 
Richard Hundhausen - 25 Mar 2008 16:44 GMT
I'm wanting to build my own teleprompter, something similar to this:
http://www.creativepro.com/files/story_images/121604_fg3.jpg

... 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.

Thanks.
Ute Simon - 25 Mar 2008 18:26 GMT
> ... 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.

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

Signature

Ute Simon
Microsoft PowerPoint MVP Team und PowerPoint-User-Team
Schon gesehen? www.ppt-user.de/blogger und www.ppt-tv.de

Richard Hundhausen - 25 Mar 2008 19:19 GMT
Any other ideas? That one kind of sucks.

> > ... and use PowerPoint to run my notes. How do I get the whole
> > presentation
[quoted text clipped - 8 lines]
> Best regards,
> Ute
Echo S - 25 Mar 2008 20:04 GMT
Reverse the image in the camera instead?

PPT doesn't have a reversing option.

Signature

Echo [MS PPT MVP] http://www.echosvoice.com
What's new in PPT 2007? http://www.echosvoice.com/2007.htm
Fixing PowerPoint Annoyances http://tinyurl.com/36grcd
PowerPoint 2007 Complete Makeover Kit http://tinyurl.com/32a7nx

> Any other ideas? That one kind of sucks.
>
[quoted text clipped - 11 lines]
>> Best regards,
>> Ute
Dale Fye - 25 Mar 2008 20:09 GMT
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

Signature

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

email address is invalid
Please reply to newsgroup only.

> Any other ideas? That one kind of sucks.
>
[quoted text clipped - 10 lines]
> > Best regards,
> > Ute
Dale Fye - 25 Mar 2008 20:17 GMT
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
Signature

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

email address is invalid
Please reply to newsgroup only.

> Actually, that probably isn't as difficult as it sounds.
>
[quoted text clipped - 39 lines]
> > > Best regards,
> > > Ute
John Wilson - 25 Mar 2008 21:43 GMT
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
Signature

Amazing PPT Hints, Tips and Tutorials

http://www.PPTAlchemy.co.uk
http://www.technologytrish.co.uk
email john AT technologytrish.co.uk

> Any other ideas? That one kind of sucks.
>
[quoted text clipped - 10 lines]
> > Best regards,
> > Ute
Richard Hundhausen - 25 Mar 2008 23:16 GMT
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

> Richard
>
[quoted text clipped - 44 lines]
> > > Best regards,
> > > Ute
Dale Fye - 26 Mar 2008 14:40 GMT
John,

Any particular reason you chose PNG as your format?

Signature

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

email address is invalid
Please reply to newsgroup only.

> Richard
>
[quoted text clipped - 44 lines]
> > > Best regards,
> > > Ute

Rate this thread:






 
Sign In
Join
My Latest Posts
My Monitored Threads
My Blog
My Photo Gallery
My Profile
My Homepage

Start New Thread
Enable EMail Alerts
Rate this Thread



©2008 Advenet LLC   Privacy Policy - Terms of Use
This website includes both content owned or controlled by Advenet as well as content owned or controlled by third parties.