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