| Новости | Поиск | FAQ | Статьи | Книги | Новости VCL | | Форумы ЧАТ | Орешник | KOL и MCK |
Форумы -» Основная («Начинающим»)/ Базы / WinAPI / Компоненты / Сети / Media / Игры / Corba и COM / KOL / FreePascal / .Net / Прочее / RSDN.ORG

	« предыдущая ветвь | форум | следующая ветвь »

D5 + Excel

First_May ©   (2002-06-03 15:11:00) 

Подскажите пожалуйста, как некоторой ячейки в Excel сделать нужную границу?

---

kat   (2002-06-03 16:24:00) [1]

//определяем диапазон
IDispatch(IR1) := ISheet.Cells.Item[StartRow, StartColumn];
IDispatch(IR2) := ISheet.Cells.Item[StartRow + ods.RecordCount , StartColumn + ColCount - 1];
IRange := ISheet.Range[IR1,IR2];

// это диагональные линии
IRange.Borders.item[xlDiagonalDown].LineStyle := xlNone;
IRange.Borders.item[xlDiagonalUp].LineStyle := xlNone;

//левая линия
IRange.Borders.item[xlEdgeLeft].LineStyle := xlContinuous;
IRange.Borders.item[xlEdgeLeft].Weight := xlThin;
IRange.Borders.item[xlEdgeLeft].ColorIndex := xlAutomatic;

//верхняя
IRange.Borders.item[xlEdgeTop].LineStyle := xlContinuous;
IRange.Borders.item[xlEdgeTop].Weight := xlThin;
IRange.Borders.item[xlEdgeTop].ColorIndex := xlAutomatic;

//нижняя
IRange.Borders.item[xlEdgeBottom].LineStyle := xlContinuous;
IRange.Borders.item[xlEdgeBottom].Weight := xlThin;
IRange.Borders.item[xlEdgeBottom].ColorIndex := xlAutomatic;

//правая
IRange.Borders.item[xlEdgeRight].LineStyle := xlContinuous;
IRange.Borders.item[xlEdgeRight].Weight := xlThin;
IRange.Borders.item[xlEdgeRight].ColorIndex := xlAutomatic;


//это вертикальные в таблице
IRange.Borders.item[xlInsideVertical].LineStyle := xlContinuous;
IRange.Borders.item[xlInsideVertical].Weight := xlThin;
IRange.Borders.item[xlInsideVertical].ColorIndex := xlAutomatic;

//это горизонтальные в таблице
IRange.Borders.item[xlInsideHorizontal].LineStyle := xlContinuous;
IRange.Borders.item[xlInsideHorizontal].Weight := xlThin;
IRange.Borders.item[xlInsideHorizontal].ColorIndex := xlAutomatic;

---

Наверх