1.Modified to use export with a loop for rendering images 2.Esc for exit app.

AutoHotKeyScripts/powerpoint.ahk

@@ -8,15 +8,17 @@ f5::
   catch e {
 	MsgBox % "Error in " e.Message ", which was called at line " e.Line 
   }
-  Loop %TotalSlides%{
-	var++
+  objppt.Export("E:\AHK\AutoHotKeyScripts\temp",FilterName:="png",1366,768)
+	
+  ;Loop %TotalSlides%{
+	;var++
 	;MsgBox %var%
-	saveppt := objppt.Slides(var).Export(A_ScriptDir . "\temp\" . var . ".png", "PNG")
-  }
+	;saveppt := objppt.Slides(var).Export(A_ScriptDir . "\temp\" . var . ".png", "PNG",1366,768)
+  ;}
   ;pt := ppt.ActivePresentation.(test, ppSaveAsPNG)
   SysGet, MonitorCount, MonitorCount
   ;MsgBox %MonitorCount%
-  MsgBox saved
+  ;MsgBox saved
   ;MsgBox inside %MonitorCount%
   ppt := objppt.SlideShowSettings
   ppt.Run
@@ -54,7 +56,7 @@ monitorDisplay(objppt, MonitorCount){
 }	
 	
 getCoordinates(MonitorNumber){
-	coord := 1920*MonitorNumber
+	coord := 1366*MonitorNumber
 	return coord
 }
 
@@ -63,8 +65,8 @@ getCoordinates(MonitorNumber){
 setDisplay(MonitorNumber, PreviousSlideNumber){
 global
 	coord := getCoordinates(MonitorNumber)
-	SetEnv file, E:\AHK\AutoHotKeyScripts\temp\%PreviousSlideNumber%.png
-	;file := "C:\Users\SK\Documents\AutoHotKey\" . %CurrentSlideNumber% . ".png"
+	SetEnv file, E:\AHK\AutoHotKeyScripts\temp\Slide%PreviousSlideNumber%.png
+	;file := "C:\Users\SK\Documents\AutoHotKey\Slide" . %CurrentSlideNumber% . ".png"
 	;file := "C:\Users\SK\Documents\AutoHotKey\1.png"
 	;MsgBox %coord%,%MonitorNumber%,%PreviousSlideNumber%,%file%
 	Gui, 1:destroy
@@ -72,4 +74,8 @@ global
 	Gui, 1:Color, Black
 	Gui, 1:Add, Picture, w%A_ScreenWidth% h-1, %file%	
 	Gui, 1:Show, x%coord% y0 maximize
-}
+}
+
+ESC::
+	objppt.SlideShowWindow.View.Exit
+	ExitApp