Keynoteで一番左上のshapeオブジェクトに他のshapeのサイズを合わせる

Keynoteでオープン中の最前面の書類で表示中のスライド（ページ）上の一番左上のshapeオブジェクトの縦横のサイズに他のshapeオブジェクトのサイズを合わせるAppleScriptです。

座標（position）の配列（2D Array）のソートにはBridgePlus Script Libraryを用いています。

▲初期状態

▲本AppleScriptで一番左上のshapeオブジェクトに他のshapeオブジェクトのサイズを合わせた

▲コマンドで適当に上ぞろえや左ぞろえを実行して整列（ここは手作業）

昔、Finder上のアイコンの整列AppleScriptを作ったことがあったので、その処理を使い回せば「いい感じの整列」はできそうです。

AppleScript名：Keynoteで一番左上のshapeオブジェクトに他のshapeのサイズを合わせる

— Created 2018-08-17 by Takaaki Naganoya
— 2018 Piyomaru Software
use AppleScript version "2.4"
use scripting additions
use framework "Foundation"
use bPlus : script "BridgePlus" –https://www.macosxautomation.com/applescript/apps/BridgePlus.html

tell application "Keynote"
　　tell front document
　　　　tell (current slide)
　　　　　　— すべてのshapeオブジェクトの座標{x,y}を返す
　　　　　　set pList to position of every shape
　　　　　　
　　　　　　— shapeオブジェクトの全座標を昇順ソートして最もX座標値が小さいものを返す
　　　　　　set mostLeftPos to first item of sort2DList(pList) of me
　　　　　　
　　　　　　— 一番X,Y座標値が小さい（＝左上にある）オブジェクトを特定
　　　　　　set mostLeftObj to first item of (every shape whose position is equal to mostLeftPos)
　　　　　　set mostLeftProp to properties of mostLeftObj
　　　　　　–> {opacity:100, parent:slide 13 of document id "95E47D6C-C444-41BD-9E7E-61229486F370" of application "Keynote", class:shape, reflection showing:false, background fill type:color fill, position:{45, 229}, object text:"", width:144, rotation:0, reflection value:0, height:25, locked:false}
　　　　　　
　　　　　　set mostLeftHeight to height of mostLeftProp
　　　　　　set mostLeftWidth to width of mostLeftProp
　　　　　　
　　　　　　— 「一番左」以外のshapeオブジェクトへの参照を取得して一気にオブジェクトのwidthをそろえる
　　　　　　set otherShape to a reference to (every shape whose position is not equal to mostLeftPos)
　　　　　　set width of otherShape to mostLeftWidth
　　　　　　set height of otherShape to mostLeftHeight
　　　　　　
　　　　end tell
　　end tell
end tell

on sort2DList(aList)
　　load framework
　　set sortIndexes to {1, 0} –Key Item id: begin from 0
　　set sortOrders to {true, true} –ascending = true
　　set sortTypes to {"compare:", "compare:"}
　　set resList to (current application’s SMSForder’s subarraysIn:(aList) sortedByIndexes:sortIndexes ascending:sortOrders sortTypes:sortTypes |error|:(missing value)) as list
　　return resList
end sort2DList