PowerPoint AppleScript: come posso impostare Play = Automaticamente per una forma di film media2?

Sto lavorando a uno script che eseguirà una iterazione attraverso una cartella / DroppedItems di foto e filmati e li posizioneremo centrati e ingranditi su una diapositiva. Vorrei impostare la riproduzione automatica dei filmati, in modo che funzioni con un semplice clicker. Ho provato un sacco di cose diverse con la sintassi e sto ancora arrivando a breve. Ecco quello che ho che pensavo fosse più promettente. Parte del problema sembra essere che "le impostazioni di gioco di theAnimation" sembrano essere state compilate su un tipo piuttosto che su una proprietà. Dovrebbe dire "impostazioni di riproduzione dell'animazione", credo. Ho provato a forzarlo incollando la sintassi chevron, ma ciò non aiuta ancora.

tell application "Microsoft PowerPoint"
    tell theSlide of the active presentation to set theMedia to   ¬
        make new media2 object at end with properties  ¬
        {file name:theMediaFile, lock aspect ratio:true}

    set theAnimation to animation settings of theMedia
    set animate of theAnimation to true
    set playSettings to play settings of theAnimation
    set autoPlay to play on entry of playSettings
    set autoPlay to true -- originally and erroneously omitted; thanks Jack!
end tell

Questa è l'impostazione nell'interfaccia utente che sto cercando di cambiare tramite AppleScript:

Eccounaversionesemplificata.Funzionanelcodice(ovvero,possovederechelaproprietàèimpostatacorrettamentesutrue),manonsiriflettenell'interfacciautentenénelcomportamentodurantel'esecuzionediunapresentazione:

tellapplication"Microsoft PowerPoint"
    set thePresentation to active presentation
    set theSlide to slide (slide index of slide range of selection of document window 1) of thePresentation
    if (count of shapes of theSlide) = 1 then
        set theShape to first shape of theSlide
        set play on entry of play settings of animation settings of theShape to true
    end if
end tell