'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"