Понедельник, 21.05.2018, 11:48
Приветствую Вас Гость | RSS

DELPHI Report

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

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

2.6 Формат границ ячейки
Границы ячейки имеют следующие свойства: цвет, стиль и толщина. Чтобы получить доступ к границе, используем коллекцию Borders объекта Range, которая через индекс (Edge) предоставляет доступ к той или иной стороне границы ячейки (левая, правая и т.д. сторона). Edge может принимать одно из 8 определенных значений. Объекты коллекции Borders определяют цвет границы, который может задаваться выбором из определенной в Excel палитры или как комбинация из трех цветов RGB. Свойство ColorIndex содержит индекс цвета: когда нас не устраивает цвет из заранее определенной палитры, тогда используем свойство Color, в которое запишем значение из комбинации трех основных цветов, например: Color= RGB(200,100,125). Стиль границы (LineStyle) имеет тип integer и одно из 8 предопределенных значений (смотрите приложение). Толщина границы (Weight) имеет тип integer и одно из 4 значений. Исходный текст функции для установки параметров границы ячейки смотрите ниже.

Code:

Function SetBorderRange(sheet:variant;range:string;

Edge,LineStyle,Weight,ColorIndex,Color:integer):boolean;

begin

SetBorderRange:=true;

try

E.ActiveWorkbook.Sheets.Item[sheet].Range[range].Borders.item

  [Edge].Weight:=Weight;

E.ActiveWorkbook.Sheets.Item[sheet].Range[range].Borders.item

  [Edge].LineStyle:=LineStyle;

if ColorIndex>0 then

  E.ActiveWorkbook.Sheets.Item[sheet].Range[range].Borders.item

  [Edge].ColorIndex:=ColorIndex

else

  E.ActiveWorkbook.Sheets.Item[sheet].Range[range].Borders.item

  [Edge].Color:=color;

except

SetBorderRange:=false;

end;

End;

 

Далее

 

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