Advertisement
tabnation

power points 1

Mar 1st, 2022
107
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
text 0.47 KB | None
  1. ;v1 AHK
  2.  
  3. oPPT := ComObjectActive("PowerPoint.Application")
  4. return
  5.  
  6. f1::
  7. oPPT.visible := true
  8. pt := oPPT.Presentations.Add()
  9. loop 5
  10. {
  11. pt.Slides.Add(1,1)
  12. }
  13. ;pt.Slides.Add(1,1)
  14. ;pt.Slides.Add(1,1)
  15. ;pt.Slides.Add(1,1)
  16. ;pt.Slides.Add(1,1)
  17. ;pt.Slides.Add(1,1)
  18. pt.SaveAs("C:\Users\Thom\Desktop\myslides.pdf", ppSaveAsPDF := 32)
  19. ;oPPT.Quit()
  20. Return
  21.  
  22. F2::oPPT.activePresentation.SlideShowWindow.View.Next()
  23. F3::oPPT.activePresentation.SlideShowWindow.View.Previous()
  24.  
Advertisement
RAW Paste Data Copied
Advertisement