Форум: "Основная";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Вниз

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

← →
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]

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

---

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

Форум: "Основная";
Текущий архив: 2003.07.24;
Скачать: [xml.tar.bz2];

Наверх

Память: 0.45 MB
Время: 0.008 c