power points 1

;v1 AHK

oPPT := ComObjectActive("PowerPoint.Application")
return

f1::
oPPT.visible := true
pt := oPPT.Presentations.Add()
loop 5
	{
	pt.Slides.Add(1,1)
	}
;pt.Slides.Add(1,1)
;pt.Slides.Add(1,1)
;pt.Slides.Add(1,1)
;pt.Slides.Add(1,1)
;pt.Slides.Add(1,1)
pt.SaveAs("C:\Users\Thom\Desktop\myslides.pdf", ppSaveAsPDF := 32)
;oPPT.Quit()
Return

F2::oPPT.activePresentation.SlideShowWindow.View.Next()
F3::oPPT.activePresentation.SlideShowWindow.View.Previous()