COM Event Not Firing

[rubix123]

Hello,

 

I am trying to get the PowerPoint COM event SlideShowBegin() to fire. I have tried everything I can think of and have read documentation on it and looked at samples. Everything seems to be setup correctly. Please Help.

expandcollapse popup

#include <Misc.au3>
#include <Powerpoint.au3>

;-------------------------------------------------------------
;-----------------------Variables-----------------------------

HotKeySet("{BACKSPACE}", "Terminate")

$obj = ObjCreate("PowerPoint.Application")
$oEvent = ObjEvent($obj, "SlideEvent_")

$slideStart = 1


;-------------------------------------------------------------
;-----------------------Functions-----------------------------

Func Terminate()
    Send("{ESC}")
    Sleep(500)
    WinClose("[REGEXPTITLE:CheckInTraining]")
    WinClose("[REGEXPTITLE:VLC]")    
    Run(@DesktopDir & "\Automated Presentation\EndScript.bat")
EndFunc

Func setSlideShow()

    With $obj.ActivePresentation.SlideShowSettings
        .RangeType = 2
        .StartingSlide = $slideStart
        .LoopUntilStopped = False
        .Run
    EndWith
    
    

    ;$obj.SlideShowWindows(1).View.GoToSlide($slideStart)
    Sleep(25000)
    Send ("S")

    
EndFunc

Func resetStartSlide()
    Sleep(1000)
    $slideStart = $obj.SlideShowWindows    (1).View.Slide.SlideIndex
    MsgBox(0,"Slide", $slideStart)
    $obj.ActivePresentation.Close
    Sleep(2000)
EndFunc

Func SlideEvent_SlideShowBegin($Pres)

    With $Pres.SlideShowSettings
        .StartingSlide = 3
    EndWith
    

    
    
EndFunc


;-------------------------------------------------------------
;--------------------------Main-------------------------------

Example()



Func Example()
    
    
    
While 1
    
    
    ;$objPPT = _PPT_PowerPointApp()
    ;$objPresOpen = _PPT_PresentationOpen($objPPT,@DesktopDir ;&     "\Automated Presentation\Checkintraining.pptx")
    

    ;Local $hDLL = DllOpen("user32.dll")
    
    
    
    $obj.Presentations.Open(@DesktopDir & "\Automated Presentation\CheckInTraining.pptx")
    
    
    
    Sleep(4000)
    WinActivate("[REGEXPTITLE:CheckInTraining]")
    Sleep(3500)
    
    setSlideShow()
    resetStartSlide()
    Sleep(2000)

    ShellExecute(@DesktopDir & "\Automated Presentation\FASPictures1.mp4")
    Sleep(1000)
    WinActivate("[REGEXPTITLE:VLC]")
    Send ("{f}")
    Sleep(15000)
    Send ("{f}")
    WinClose("[REGEXPTITLE:VLC]")
    Sleep(3000)
        
        
    
    
WEnd

DllClose($hDLL)


        
    EndFunc   ;==>Example

Edited February 17, 2014 by Melba23
Added tags

[Melba23]

rubix123,

Welcome to the AutoIt forum.

When you post code please use Code tags - see here how to do it. Then you get a scrolling box and syntax colouring as you can see above now I have added the tags.

M23

[rubix123]

Oh ok. Thx!

[water]

Can you please give us some more information?

Which version of PowerPoint do you run?

Which version of AutoIt do you run?

[rubix123]

AutoIt version 3.3.10.2

PowerPoint 2010

[water]

Can you please add this line as first line to function SlideEvent_SlideShowBegin?

MsgBox(0, "", "Function SlideEvent_SlideShowBegin started")

[rubix123]

Nothing. It doesn't display the message at all when the Slide Show first begins. Just continues to go through the normal slide presentation.

[water]

I can't test at the moment, need to wait till I'm in my office again.

Why do you need to grab the event at all? Can't you set the starting slide after you have opened the presentation?

[rubix123]

Well to tell the truth I am trying to run a slide show presentation where it stops on a slide after so many seconds. Then opens another file and has that displayed for so many seconds and so on until it comes back to the presentation. So, basically this will be an infinite loop, but when it makes it back to the presentation I want it to resume where it left off. I was trying to just get an event to fire so to tell power point that when it gets to the last slide to actually set the starting slide back to one. SlideShowBegin() was just a test to see if I could get the event to work. I will use SlideShowEnd() in the code once I can get the event to work. The code currently opens and closes PowerPoint thus always starting the slide show back at slide 1. If I set a range then it could continiously loop within that range for however many seconds I have it. So, I need to tell it to set the starting slide in the range to 1 when it reaches the end. Hope this is more descriptive and not too confusing.

[rubix123]

Still no progress. I have followed the documentation on ObjEvents and have setup everything in my code that would seem to be identical to the example, but with no events firing. Someone please help.

[rubix123]

$oEvent = ObjEvent($obj, "SlideEvent_")
    
If @error Then
    MsgBox(0,"", @error)
EndIf

So this might stir up an answer. When I added this code (the IF statement) a message box appears with a -2147316576 as the message. This would indicate a failure that sets the @error flag to a non-zero, right? If so, then what am I doing wrong?