Powerpoint VisualBasic Script

Sub export()
    ActivePresentation.Export Path:="C:\", FilterName:="JPG", ScaleWidth:=800, ScaleHeight:=600
End Sub