Exporting a Presentation or Some Slides to Graphics
Sub export() ActivePresentation.Export Path:="C:\", FilterName:="JPG", ScaleWidth:=800, ScaleHeight:=600 End Sub