set kRes to getSelectedImage() of me
–> image 3 of slide 24 of document id "534F4E65-4459-4B00-95D4-34C3E020467E"

on getSelectedImage()
　　my executeKeynoteItemCopy() –Execute Copy From Menu
　　
　　–クリップボードの内容をNSImageに
　　set aNSIMage to my getClipboardASImage()
　　if aNSIMage = false then
　　　　return false
　　end if
　　
　　–クリップボード中のNSImageのサイズを取得
　　set aSize to aNSIMage’s |size|()
　　set selWidth to (aSize’s width) as real
　　set selHeight to (aSize’s height) as real
　　
　　–Keynoteの最前面のドキュメントの現在のスライド上の画像からサイズを取得してクリップボード内の画像サイズと照合する
　　tell application "Keynote"
　　　　tell front document
　　　　　　tell current slide
　　　　　　　　set iList to every image
　　　　　　　　
　　　　　　　　repeat with i in iList
　　　　　　　　　　set myHeight to (height of i) as real
　　　　　　　　　　set myWidth to (width of i) as real
　　　　　　　　　　if {myWidth, myHeight} = {selWidth, selHeight} then
　　　　　　　　　　　　return contents of i
　　　　　　　　　　end if
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
　　return false
end getSelectedImage

— クリップボードの内容をNSImageとして取り出して返す
on getClipboardASImage()
　　set theNSPasteboard to current application’s NSPasteboard’s generalPasteboard()
　　set theAttributedStringNSArray to theNSPasteboard’s readObjectsForClasses:({current application’s NSImage}) options:(missing value)
　　if theAttributedStringNSArray = {} then return false
　　set theNSAttributedString to theAttributedStringNSArray’s objectAtIndex:0
　　return theNSAttributedString
end getClipboardASImage