Вторник, 24.12.2024, 20:38
Приветствую Вас Гость | RSS

DELPHI Report

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

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

2.1 Высота и ширина ячейки
Чтобы формировать вид документа в процессе его создания, недостаточно только функций записи информации в ячейки, необходимо также изменять ее визуальные параметры. Самое простое, с чего можно начать, - изменение ширины столбцов и высоты строк. Доступ к ширине столбцов можно получить, используя коллекцию Columns. Используя номер колонки в буквенном или числовом формате и свойство коллекции ColumnWidth, можно изменить ширину столбца или назначить ее. Определенная ниже функция, реализованная на Delphi, устанавливает ширину столбца.

Code:

Function SetColumnWidth (sheet:variant;

column:variant;width:real):boolean;

begin

SetColumnWidth:=true;

try

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

  [column].ColumnWidth:=width;

except

SetColumnWidth:=false;

end;

End;

 Для определения ширины столбца используйте следующий оператор: width:=E.ActiveWorkbook .Sheets.Item[sheet].Columns[column].ColumnWidth;

Доступ к высоте строк можно получить, используя коллекцию Rows. Назначая номер строки и свойство коллекции RowHeight, можно изменить высоту строки или назначить ее. Определенная ниже функция, реализованная на Delphi, устанавливает высоту строки.

Code:

Function SetRowHeight (sheet:variant;row:variant;

height:real):boolean;

begin

SetRowHeight:=true;

try

E.ActiveWorkbook.Sheets.Item[sheet].Rows[row].RowHeight:=height;

except

SetRowHeight:=false;

end;

End;

 Для определения высоты строки используйте следующий оператор: height:=E.ActiveWorkbook.Sheets.Item[sheet].Rows[row].RowHeight;

 

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