Convert Slides To Jpeg within presentation

[excelledsoftware]

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]

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]

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]

This should work though not thoroughly tested!

MAKE SURE YOU WORK ON A COPY!

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]

Originally Posted by JohnWilson

This should work though not thoroughly tested!

MAKE SURE YOU WORK ON A COPY!

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