Формат границ ячейки

01.01.2007

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

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;