Рамка вокруг ячейки

← →
OlegNOE (2003-07-10 15:30) [0]

Может кто знает способ сделать SUBJ, помогите PLS

← →
OlegNOE (2003-07-10 15:31) [1]

Имеется в виду ячейка листа в Excel

← →
OlegNOE (2003-07-10 15:47) [2]

Ну разве нет такой возможности? Ау, мастера!

← →
3APA3A © (2003-07-10 15:49) [3]

Щас вспомню....
Кажется так:

Procedure Frame(Book:OleVariant;x1,y1,x2,y2:Integer;W:OLEVariant);
Var Range:OLEVariant;
Begin
Range:=Book.WorkSheets[1].Range[WorkBook.WorkSheets[1].Cells[y1, x1],WorkBook.WorkSheets[1].Cells[y2, x2]];
Range.Borders[xlEdgeLeft].LineStyle :=xlContinuous;
Range.Borders[xlEdgeLeft].Weight :=W;
Range.Borders[xlEdgeTop].LineStyle :=xlContinuous;
Range.Borders[xlEdgeTop].Weight :=W;
Range.Borders[xlEdgeBottom].LineStyle :=xlContinuous;
Range.Borders[xlEdgeBottom].Weight :=W;
Range.Borders[xlEdgeRight].LineStyle := xlContinuous;
Range.Borders[xlEdgeRight].Weight :=W;
If Range.Columns.Count > 1 Then
Begin
Range.Borders[xlInsideVertical].LineStyle := xlContinuous;
Range.Borders[xlInsideVertical].Weight :=W;
End;
If Range.Rows.Count > 1 Then
Begin
Range.Borders[xlInsideHorizontal].LineStyle :=xlContinuous;
Range.Borders[xlInsideHorizontal].Weight :=W;
End;
End;

Где W - это толщина, например xlThin, xlMedium, еще там (Excel97.pas) какие-то константы есть... посмотри...

← →
OlegNOE (2003-07-10 16:07) [4]

Спасибо огромное !

Рамка вокруг ячейки Найти похожие ветки