openoffice calc マクロ

マクロを作るにはツール->マクロ->新規とか
キーバインドも同じところで割り当て
でシートの値から計算してシートに代入する方法

Sub Main
   Dim oSheet As Object
   Dim oCell As Object
   Dim value As Double
   oSheet = ThisComponent.Sheets(0)
   oCell = oSheet.getCellByposition(0,0)
   value = oCell.value
   oCell = oSheet.getCellByposition(1,0)
   value = value +  oCell.value
   oCell = oSheet.getCellByposition(2,0)
   oCell.setValue(value)
End Sub

ボタンは作れるのかな
手当たり次第リンク
http://www.voce.gr.jp/regione/chun/c1s02.html
http://codesnippets.services.openoffice.org/Calc/Calc.CellAccess.snip