Keynoteの表の背景色がない箇所を白く塗る

Keynoteでオープン中の最前面の書類の現在表示中のスライド（ページ）の上にある表の背景色が塗られていないセルを白く塗るAppleScriptです。

一応、非同期処理モードを使うことでスピードを稼いでいますが、この処理は速くありません。非同期処理モードの宣言部分を外した姿が本当のスピードです。

全部一括で塗るとかRangeを指定して塗るといった処理ができるとスピードを稼げると思いますが、「辻褄合わせ」とか「例外」的な処理なので、（Apple側の対応は）あまり期待できないでしょう。

▲処理前

▲処理後

AppleScript名：Keynoteの表の背景色がない箇所を白く塗る

tell application "Keynote"
　　tell front document
　　　　tell current slide
　　　　　　tell table 1
　　　　　　　　set cList to every cell
　　　　　　　　repeat with i in cList
　　　　　　　　　　tell i
　　　　　　　　　　　　set tmpColor to background color
　　　　　　　　　　　　if tmpColor = missing value then
　　　　　　　　　　　　　　ignoring application responses
　　　　　　　　　　　　　　　　set background color to {65535, 65535, 65535}
　　　　　　　　　　　　　　end ignoring
　　　　　　　　　　　　end if
　　　　　　　　　　end tell
　　　　　　　　end repeat
　　　　　　end tell
　　　　end tell
　　end tell
end tell

★Click Here to Open This Script　

(Visited 102 times, 1 visits today)