tell application "Keynote"
　　tell front document
　　　　tell current slide
　　　　　　
　　　　　　set tCount to count every table
　　　　　　if tCount = 0 then return
　　　　　　
　　　　　　tell table 1
　　　　　　　　
　　　　　　　　set cCount to count every column
　　　　　　　　set cWidth to width of every column
　　　　　　　　set aWidth to width –table width
　　　　　　　　
　　　　　　　　set aveWidth to (aWidth – (first item of cWidth)) / (cCount – 1)
　　　　　　　　
　　　　　　　　tell columns 2 thru cCount
　　　　　　　　　　set width to aveWidth
　　　　　　　　end tell
　　　　　　　　
　　　　　　end tell
　　　　end tell
　　end tell
end tell