Вторник, 26.09.2017, 19:12
Приветствую Вас Гость | RSS

DELPHI Report

Каталог статей Delphi Report

Главная » Статьи » MS Office (MS Word, MS Excel ) » MS Excel

2.3 Выравнивание текста в ячейке
Следующим шагом изменения режима отображения данных в ячейках книги 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;

alignment:integer):boolean;

begin

SetVerticalAlignment:=true;

try

E.ActiveWorkbook.Sheets.Item[sheet].Range

  [range].VerticalAlignment:=alignment;

except

SetVerticalAlignment:=false;

end;

End;

 

Далее

Категория: MS Excel | Добавил: delphi (01.09.2008)
Просмотров: 4515 | Рейтинг: 0.0/0
Всего комментариев: 0
Добавлять комментарии могут только зарегистрированные пользователи.
[ Регистрация | Вход ]
Меню сайта
Google
Форма входа
Категории раздела
MS Excel [22]MS Word [18]
Поиск
Друзья сайта
Статистика
Copyright MyCorp © 2017