Browse Source

1.Adding previous button functionality. 2.Adding exception handling for End Slide show

sachinmanawadi271 7 years ago
parent
commit
94dc8b43da
1 changed files with 12 additions and 2 deletions
  1. 12 2
      AutoHotKeyScripts/powerpoint.ahk

+ 12 - 2
AutoHotKeyScripts/powerpoint.ahk

@@ -27,9 +27,19 @@ Right::
 	objppt.SlideShowWindow.View.Next
 	monitorDisplay(objppt, MonitorCount)
 	return
+	
+Left::
+	objppt.SlideShowWindow.View.Previous
+	monitorDisplay(objppt, MonitorCount)
+	return
 
 monitorDisplay(objppt, MonitorCount){
-	CurrentSlideNumber :=% objppt.SlideShowWindow.View.Slide.SlideIndex
+	try{
+		CurrentSlideNumber :=% objppt.SlideShowWindow.View.Slide.SlideIndex
+		}
+	catch{
+		ExitApp
+		}
 	;MsgBox %CurrentSlideNumber% is the current slide
 	monitor := MonitorCount-1
 	Loop %monitor%{
@@ -53,7 +63,7 @@ getCoordinates(MonitorNumber){
 setDisplay(MonitorNumber, PreviousSlideNumber){
 global
 	coord := getCoordinates(MonitorNumber)
-	SetEnv file, C:\Users\SK\Documents\AutoHotKey\temp\%PreviousSlideNumber%.png
+	SetEnv file, E:\AHK\AutoHotKeyScripts\temp\%PreviousSlideNumber%.png
 	;file := "C:\Users\SK\Documents\AutoHotKey\" . %CurrentSlideNumber% . ".png"
 	;file := "C:\Users\SK\Documents\AutoHotKey\1.png"
 	;MsgBox %coord%,%MonitorNumber%,%PreviousSlideNumber%,%file%