Powerpoint VisualBasic Script

Sub exportPNG()
    ActivePresentation.Slides(6).Export _
        FileName:="C:\Slide6.png", FilterName:="PNG"
End Sub