use AppleScript version "2.4" — Yosemite (10.10) or later
use framework "Foundation"
use scripting additions

tell application "Keynote"
　　set dCount to count (every document)
　　if dCount = 0 then return
　　
　　tell front document
　　　　set myPath to (file of it)
　　　　if myPath = missing value then return false –Unsaved
　　　　
　　　　tell current slide
　　　　　　tell image 1
　　　　　　　　set aFile to file name
　　　　　　　　–> "switchControl.png"
　　　　　　end tell
　　　　end tell
　　end tell
end tell

set myPOSIXPath to POSIX path of (myPath as alias)

–Extract document internal image paths by extracting Keynote’s zip archive
set dList to getInternalImagesWithinKeynote(myPath) of me

–Extract file name and ext from image 1 path
set pPath to POSIX path of aFile
set {aName, aExt} to getExtAndFilenameFromPath(pPath) of me

–Filter Keynote internal image list by image 1’s file name and ext
set theArray to current application’s NSArray’s arrayWithArray:dList
set thePred to current application’s NSPredicate’s predicateWithFormat_("self.pathExtension == %@ && self.lastPathComponent beginswith %@ ", aExt, aName)
set bList to (theArray’s filteredArrayUsingPredicate:thePred) as list
–> {"Data/switchControl-226.png", "Data/switchControl-small-227.png"}

–Extrat file
set exF to false

repeat with i in bList
　　set outName to getFilenameAndExtFromPath(i) of me
　　
　　if outName does not contain "-small-" then –Skip Preview Image
　　　　set outPath to POSIX path of (path to desktop) & outName
　　　　set bRes to do shell script "unzip -j " & quoted form of myPOSIXPath & " " & quoted form of i & " -d " & " " & outPath
　　　　
　　　　set extractPath to POSIX path of (path to desktop) & outName & "/" & outName
　　　　do shell script "open " & quoted form of extractPath –Open for test
　　　　
　　　　set exF to true
　　end if
end repeat

if exF = false then return false

–Keynote書類中の画像ファイル一覧を取得
on getInternalImagesWithinKeynote(myPath)
　　set kPath to POSIX path of myPath
　　set aRes to do shell script "unzip -Z1 " & quoted form of kPath & " | grep ^Data/"
　　set aList to paragraphs of aRes
　　return aList
end getInternalImagesWithinKeynote

–ファイルパスからファイル名部分と拡張子を分離
on getExtAndFilenameFromPath(aPOSIXpath)
　　set pathString to current application’s NSString’s stringWithString:aPOSIXpath
　　set aStr to pathString’s lastPathComponent()
　　set aExt to (aStr’s pathExtension())
　　set bStr to aStr’s stringByDeletingPathExtension()
　　return {bStr as string, aExt as string}
end getExtAndFilenameFromPath

–ファイルパスからファイル名部分のみ取得
on getFilenameAndExtFromPath(aPOSIXpath)
　　set pathString to current application’s NSString’s stringWithString:aPOSIXpath
　　set aStr to pathString’s lastPathComponent()
　　return aStr as string
end getFilenameAndExtFromPath