View Single Post
 
Old 01-18-2012, 01:18 PM
JohnWilson JohnWilson is offline Windows 7 64bit Office 2010 32bit
Programmer
 
Join Date: Nov 2008
Location: UK
Posts: 1,912
JohnWilson has a spectacular aura aboutJohnWilson has a spectacular aura about
Default

See if this works

Code:
'at the top of your code after  the line sub Whatever()
Dim osld As Slide

'at the correct part of your code (change the save path of course)
Set osld = ActiveWindow.View.Slide
osld.Export "C:\Users\John\Desktop\slidePic.jpg", FilterName:="JPG"
__________________
Microsoft PowerPoint MVP 2007-2023
Free Advanced PowerPoint Tips and Tutorials
Reply With Quote