property totalRect : missing value

tell application "Keynote"
　　tell front document
　　　　tell current slide
　　　　　　–SelectionがまだKeynoteでうまく働いていないので、そのかわり
　　　　　　set aaList to every iWork item
　　　　　　set aList to {}
　　　　　　repeat with i in aaList
　　　　　　　　if (class of i) is in {shape} then
　　　　　　　　　　set the end of aList to contents of i
　　　　　　　　end if
　　　　　　end repeat
　　　　　　
　　　　　　–最初のアイテムを取り出す
　　　　　　set aFirst to contents of first item of aList
　　　　　　set {x1Pos, y1Pos} to position of aFirst
　　　　　　set aHeight to height of aFirst
　　　　　　set aWidth to width of aFirst
　　　　　　set my totalRect to {origin:{x:x1Pos, y:y1Pos}, |size|:{|width|:aWidth, |height|:aHeight}}
　　　　　　
　　　　　　–残りのアイテムをNSRectに変換しつつ加算　　　　　　
　　　　　　set aList to rest of aList
　　　　　　
　　　　　　repeat with i in aList
　　　　　　　　set aProp to properties of i
　　　　　　　　set aHeight to height of aProp
　　　　　　　　set aWidth to width of aProp
　　　　　　　　set anArea to aHeight * aWidth
　　　　　　　　set {x2Pos, y2Pos} to position of i
　　　　　　　　
　　　　　　　　set tmpRect to {origin:{x:x2Pos, y:y2Pos}, |size|:{|width|:aWidth, |height|:aHeight}}
　　　　　　　　calcUnionRect(tmpRect) of me –Rectangleの加算を行う　　　　　　　　
　　　　　　end repeat
　　　　　　
　　　　　　–Rectangleを合成した大きさと位置でshapeを新規作成
　　　　　　set tRect to (totalRect as record)
　　　　　　set newProp to {position:{(x of origin of tRect), (y of origin of tRect)}, width:(|width| of |size| of tRect), height:(|height| of |size| of tRect)}
　　　　　　set newShape to make new shape with properties newProp
　　　　　　set opacity of newShape to 30
　　　　end tell
　　　　
　　end tell
end tell