Следующим шагом
изменения режима отображения данных в ячейках книги Excel рассмотрим
выравнивание текста по горизонтали и вертикали. Для выравнивания по горизонтали
используется свойство HorizontalAlignment объекта Range, которое применяем в
функции SetHorizontalAlignment. Если записывать в аргумент alignment:integer
этой функции определенные числовые константы, то получим различные варианты
выравнивания текста по горизонтали. Смотрите список констант и функцию,
реализующую выравнивание текста по горизонтали.
Code:
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.
Code:
const
xlVAlignBottom=-4107;
xlVAlignCenter=-4108;
xlVAlignDistributed=-4117;
xlVAlignJustify=-4130;
xlVAlignTop=-4160;
Function SetVerticalAlignment (sheet:variant;range:string;
