Convert Slides To Jpeg within presentation

JohnWilson · #1 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 · #2 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
Switch to Linear Mode 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