Sources
Delphi Russian Knowledge Base
DRKB - это самая большая и удобная в использовании база знаний по Дельфи в рунете, составленная Виталием Невзоровым

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

01.01.2007

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

Следующим шагом изменения режима отображения данных в ячейках книги Excel рассмотрим выравнивание текста по горизонтали и вертикали. Для выравнивания по горизонтали используется свойство HorizontalAlignment объекта Range, которое применяем в функции SetHorizontalAlignment. Если записывать в аргумент alignment:integer этой функции определенные числовые константы, то получим различные варианты выравнивания текста по горизонтали. Смотрите список констант и функцию, реализующую выравнивание текста по горизонтали.

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;
 

Для выравнивания по вертикали используем свойство VerticalAlignment объекта Range. Смотрите набор констант и функцию SetVerticalAlignment.

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;