tell application "Numbers"

  tell front document to tell active sheet

  tell (first table whose selection range's class is range)

  set chartTitle to name

  set colNames to (row 1's cells 2 thru -1)'s value

  set rowNames to (column 1's cells 2 thru -1)'s value

  set chartData to (rows 2 thru -1)'s (cells 2 thru -1)'s value

  end tell

  end tell

end tell



tell application "Keynote"


activate

  tell front document's current slide

  set default title item'sobject text to chartTitle

  if existschart 1 then deletechart 1


add chartrow namesrowNamescolumn namescolNames ¬


datachartDatatypevertical_bar_2dgroup bychart row

  end tell

end tell