Текущий архив: 2003.02.13;
Скачать: CL | DM;

Вниз

Границы ячеек в Excel   Найти похожие ветки 

← →
ef2000   (2003-01-31 17:23) [0]

Здравствуйте!

Подскажите как задать границу определенной ячейке, или диапазону ячеек в Еxcel. Использую TExcelApplication.

Заранее благодарен.

---

← →
ef2000   (2003-02-01 15:34) [1]

up

---

← →
ef2000   (2003-02-03 08:24) [2]

2up

---

← →
Романов Р.В. ©   (2003-02-03 08:50) [3]

uses Excel97;

procedure SetEdge(Range: OleVariant);
begin
Range.Borders[xlEdgeLeft].LineStyle := xlContinuous;
Range.Borders[xlEdgeLeft].Weight := xlMedium;
Range.Borders[xlEdgeTop].LineStyle := xlContinuous;
Range.Borders[xlEdgeTop].Weight := xlMedium;
Range.Borders[xlEdgeBottom].LineStyle := xlContinuous;
Range.Borders[xlEdgeBottom].Weight := xlMedium;
Range.Borders[xlEdgeRight].LineStyle := xlContinuous;
Range.Borders[xlEdgeRight].Weight := xlMedium;
if Range.Columns.Count > 1 then
begin
Range.Borders[xlInsideVertical].LineStyle := xlContinuous;
Range.Borders[xlInsideVertical].Weight := xlThin;
end;
if Range.Rows.Count > 1 then
begin
Range.Borders[xlInsideHorizontal].LineStyle := xlContinuous;
Range.Borders[xlInsideHorizontal].Weight := xlThin;
end;
end;

---

Страницы: 1 вся ветка

Текущий архив: 2003.02.13;
Скачать: CL | DM;

Наверх

Память: 0.47 MB
Время: 0.046 c