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
Default

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