Главная страница
Top.Mail.Ru    Яндекс.Метрика
Текущий архив: 2004.09.05;
Скачать: CL | DM;

Вниз

как в Excel сделать заголовок столбца (по середине) и   Найти похожие ветки 

 
ceval ©   (2004-08-17 12:18) [0]

Подскажите пожалуста как в Excel сделать заголовок столбца (по середине) иданные в столбце по центру.
Пробывал  делать так :

  xl.Cells[x,1].alignment:=tacenter;

Выдает ошибку


 
46_55_41_44 ©   (2004-08-17 12:26) [1]

const
xlVAlignBottom=-4107;
xlVAlignCenter=-4108;
xlVAlignDistributed=-4117;
xlVAlignJustify=-4130;
xlVAlignTop=-4160;
Function SetVerticalAlignment (sheet:variant;range:string;
 alignment:integer):boolean;
begin
SetVerticalAlignment:=true;
try
 E.ActiveWorkbook.Sheets.Item[sheet].Range
  [range].VerticalAlignment:=alignment;
except
 SetVerticalAlignment:=false;
end;
End;


 
46_55_41_44 ©   (2004-08-17 12:26) [2]

xlVAlignCenter=-4108


 
46_55_41_44 ©   (2004-08-17 12:28) [3]

А это горизонтально:
const
xlHAlignCenter=-4108;
xlHAlignDistributed=-4117;
xlHAlignJustify=-4130;
xlHAlignLeft=-4131;
xlHAlignRight=-4152;
xlHAlignCenterAcrossSelection=7;
xlHAlignFill=5;
xlHAlignGeneral=1;
Function SetHorizontalAlignment (sheet:variant;range:string;
 alignment:integer):boolean;
begin
SetHorizontalAlignment:=true;
try
 E.ActiveWorkbook.Sheets.Item[sheet].Range
  [range].HorizontalAlignment:=alignment;
except
 SetHorizontalAlignment:=false;
end;
End;



Страницы: 1 вся ветка

Текущий архив: 2004.09.05;
Скачать: CL | DM;

Наверх




Память: 0.47 MB
Время: 0.039 c
10-1034843956
rex
2002-10-17 12:39
2004.09.05
Как отработать удаленную процедуру в тонком клиенте ?


3-1091974607
VID
2004-08-08 18:16
2004.09.05
Где живёт подробное описание SQL-команд на русском ?


3-1092294860
REA
2004-08-12 11:14
2004.09.05
IB описания полей


14-1092381351
AZ
2004-08-13 11:15
2004.09.05
Escape-последовательность


1-1092848545
Holls
2004-08-18 21:02
2004.09.05
Thread creation error