Convert Slides To Jpeg within presentation

excelledsoftware · #1 08-21-2012, 10:44 PM

Hello,

I use to have this software for my phone called "Quickoffice" it would take any powerpoint presentation and convert the slides to jpegs (as the slides) so I could view the presentations on my phone. This software is no longer available and I'm sad but I thought there may be a way to use VBA to recreate what it did. I understand that you can export all slides as Jpegs or other images. That is not what I am trying to do. I want to take my presentation with we will say 10 slides. Then basically have the slide become just a jpeg. No autoshapes or text. Maybe I could export the slide then delete everything on the slide and then import the picture. Seems like a clunky way to do it though.

JohnWilson · #2 08-21-2012, 11:08 PM

It's not at all clear what you mean!

Exporting or saving as jpeg DOES create a set of images so I don't understand what else you need.

Could you mean the equivalent of cutting everything on each slide and then pasting it all as an image?? 2010 call this a Picture Presentation.

excelledsoftware · #3 08-22-2012, 12:56 PM

John,

Sorry for being unclear. What I am looking for is the Picture Presentation. I want to cut everything off the slide and then paste special it onto the slide as a jpeg and do that for every slide.

thanks

JohnWilson · #4 08-23-2012, 01:09 AM

This should work though not thoroughly tested!

MAKE SURE YOU WORK ON A COPY!

Code:

Sub picPres()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
ActiveWindow.View.GotoSlide osld.SlideIndex
With osld.Shapes.AddShape(msoShapeRectangle, 0, 0, ActivePresentation.PageSetup.SlideWidth, ActivePresentation.PageSetup.SlideHeight)
.Fill.Visible = False
.Line.Visible = False
End With
osld.Shapes.Range.Cut
With osld.Shapes.PasteSpecial(ppPastePNG)
.Left = 0
.Top = 0
.Width = ActivePresentation.PageSetup.SlideWidth
End With
osld.Layout = ppLayoutBlank
Next
End Sub

excelledsoftware · #5 08-31-2012, 11:22 AM

Quote:

Originally Posted by JohnWilson

This should work though not thoroughly tested!

MAKE SURE YOU WORK ON A COPY!

Code:

Sub picPres()
Dim osld As Slide
For Each osld In ActivePresentation.Slides
ActiveWindow.View.GotoSlide osld.SlideIndex
With osld.Shapes.AddShape(msoShapeRectangle, 0, 0, ActivePresentation.PageSetup.SlideWidth, ActivePresentation.PageSetup.SlideHeight)
.Fill.Visible = False
.Line.Visible = False
End With
osld.Shapes.Range.Cut
With osld.Shapes.PasteSpecial(ppPastePNG)
.Left = 0
.Top = 0
.Width = ActivePresentation.PageSetup.SlideWidth
End With
osld.Layout = ppLayoutBlank
Next
End Sub

John,

Sorry for the late reply. The code worked great thanks

Thread Tools
Show Printable Version Email this Page
Display Modes
Linear Mode Switch to Hybrid Mode Switch to Threaded Mode

Similar Threads
Thread	Thread Starter	Forum	Replies	Last Post
Multiple Monitors/One Presentation/Different Slides	future	PowerPoint	0	12-12-2011 02:20 PM
How do I swap slides during a presentation?	Harper	PowerPoint	0	08-17-2011 09:13 AM
Help with PPT AddIn that pastes slides into another presentation	matt.wilson	PowerPoint	0	01-05-2011 03:28 PM
viewing slides while doing my presentation	davepower	PowerPoint	1	04-30-2009 02:18 PM
How many slides in a 30 min presentation	barbara3010	PowerPoint	2	02-12-2009 10:12 AM