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

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