Выравнивание текста в excel ячейки!

[AK BULLETS]

Подскажите пожалуйста, как выравнивать текст в слитых ячейках excel таблицы.
EXCEL.ActiveSheet.Range[EXCEL.ActiveSheet.Cells.Item[row-i_kod, 1], EXCEL.ActiveSheet.Cells.Item[row-1, 1]].HorizontalAlignment := xlCenter;

не работает. Ругается.

[AK BULLETS]

РУгается на xlCenter.

[Grag]

Сообщение от AK BULLETS

Подскажите пожалуйста, как выравнивать текст в слитых ячейках excel таблицы.
EXCEL.ActiveSheet.Range[EXCEL.ActiveSheet.Cells.Item[row-i_kod, 1], EXCEL.ActiveSheet.Cells.Item[row-1, 1]].HorizontalAlignment := xlCenter;

не работает. Ругается.

Что-то я не уверен, что это "слитые" ячейки... Или я не понимаю твоего термина "слитые"... Здесь просто указан диапазон ячеек... Слияние (объединение) выполняется Merge...

[EducatedFool]

Замените xlCenter на -4108

Ваша программа ведь не знает, чему равно значение встроенной в excel константы.

[AK BULLETS]

Ну да. Сначала я делаю слияние, а потом хочу выровнить текст.

Range[cell(1,2), cell(3,4)].merge;
а потом -
Range[cell(1,2), cell(3,4)].HorizontalAlignment := xlCentre;
Range[cell(1,2), cell(3,4)].VerticalAlignment:= xlCentre;

Ругается на xlCentre.

Range[cell(1,2), cell(3,4)].HorizontalAlignment := 3;
Range[cell(1,2), cell(3,4)].VerticalAlignment:= 2;
- тоже не работает

[AK BULLETS]

не, с -4108 тоже не работает.

[Grag]

Сообщение от AK BULLETS

не, с -4108 тоже не работает.

А в моей программе работает

              Sheet.Cells[iCnt,CurSaveParams]:=KdaListBoxInp.Items[jCnt];
              //центрирую ...
              Sheet.Cells[iCnt,CurSaveParams].HorizontalAlignment:=-4108;

[AK BULLETS]

Сорьки!!! Работает )

[AK BULLETS]

Спасибо 1 1 1 1