Как объединить вертикальные ячейки в Excel (разумеется из Delphi)

← →
ASoft (2005-08-22 15:58) [0]

Доброго дня.
Пытаю компонент TExcelApplication.
Пишу, к примеру:
...
Var
WorkBk: _WorkBook;
WorkSheet: _WorkSheet;
begin
try
XLApp.WorkBooks.Add(xlWBatWorkSheet , 0);
WorkBk := XLApp.WorkBooks.Item[1];
WorkSheet := WorkBk.WorkSheets.Get_Item(1) as _WorkSheet;
WorkSheet.Range["A1","A4"].Merge(xlCenter);
...
И фиг там, не объединяется.
а вот так:
WorkSheet.Range["A1","B4"].Merge(xlCenter);
пожалста! То есть - по горизонтали получается, а по вертикали нет.
Помогите чем можете? (Excel - Rus.)

← →
alex_*** (2005-08-22 16:20) [1]

макрос сделай и смотри что вызывается там

← →
ASoft (2005-08-22 16:31) [2]

Спасибо за совет. Из "самозаписывающихся" макросов я многое узнал. Но почему-то именно этот момент у меня не получился сразу, ведь по горизонтали объединение происходило нормально.
Вопрос решился в положительную сторону так:
WorkSheet.Range["A1","A4"].MergeCells:=True;
Вопрос закрыт. Спасибо.

← →
ASoft (2005-08-22 16:37) [3]

PS: На самом деле объединение может происходить по разному, к примеру:

WorkSheet.Range["A1","C4"].Merge(xlCenter); - объединит ячейки по горизонтали, а
WorkSheet.Range["A1","С4"].MergeCells:=True; - по вертикали.

Как объединить вертикальные ячейки в Excel (разумеется из Delphi) Найти похожие ветки