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

See if this works

'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