View Single Post
Old 01-18-2012, 02:42 PM
excelledsoftware excelledsoftware is offline Windows 7 64bit Office 2003
IT Specialist
Join Date: Jan 2012
Location: Utah
Posts: 455
excelledsoftware will become famous soon enough

Originally Posted by JohnWilson View Post
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"
That Sir, Worked perfectly. Thanks so very very much
Reply With Quote