Es ist nicht perfekt, weil die Folien etwas außerhalb des Mittelpunkts liegen, aber es funktioniert gut genug für mich. Führen Sie einfach das folgende Applescript aus:
tell application "Keynote" set theNumberOfSlides to count of slides in slideshow 1 end tell repeat with i from 1 to theNumberOfSlides tell application "Keynote" activate tell application "System Events" to keystroke "c" using end tell tell application "Pages" activate tell application "System Events" to keystroke "v" using end tell tell application "Keynote" activate tell application "System Events" to key code 125 end tell end repeat