大吐血：如何向Excel2000(VBA)内对象的方法的函数传递参数！！！ 急！！！(200分)

各位大虾：
小弟调用excel内置对象时，它的方法需要参数，用宏(VBA)实现的代码为：

Sub 宏1()
Range("B2").Select
ActiveWindow.SelectedSheets.HPageBreaks.Add Before:=ActiveCell
ActiveWindow.SelectedSheets.VPageBreaks.Add Before:=ActiveCell
End Sub

其意义为：在单元格"B2"上方和左方插入两个分页符号.
但是该死的 Add 方法有个 before 参数。
我的问题就是如何用delphi来传递这个 before 参数而实现以上代码的功能！

Excel1.ActiveWindow.SelectedSheets.HPageBreaks.Add[excel1.ActiveCell]

好像不大行，整段代码出来，我也给200分！

答案在这里
http://www.delphibbs.com/delphibbs/dispq.asp?LID=605434

sunhood兄请进，我好为你加分！