Главная страница
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.023 c
14-1092734667
Blackman
2004-08-17 13:24
2004.09.05
Сайт "Курс борьбы с DELPHI" закрывается 20.08.2004


14-1091465217
Мазут Береговой
2004-08-02 20:46
2004.09.05
Я весь на измене. Даже спать перестал.


1-1093116430
kraw
2004-08-21 23:27
2004.09.05
TForm и как с ней бороться


9-1084807193
Pirate
2004-05-17 19:19
2004.09.05
3D Движки


14-1091694977
Baks
2004-08-05 12:36
2004.09.05
Помогите найти прогу...