Delphi & Excel

← →
Лана Розанова (2003-04-09 12:48) [0]

Как из Delphi в Excel обрамить ячейку?
СПАСИБО!!!

← →
Hooch © (2003-04-09 13:13) [1]

// бордюр внешний Range.Borders[xlDiagonalDown].LineStyle := xlNone; Range.Borders[xlDiagonalUp ].LineStyle := xlNone; Range.Borders[xlEdgeLeft].LineStyle := xlContinuous; Range.Borders[xlEdgeLeft].Weight := xlMedium; Range.Borders[xlEdgeLeft].ColorIndex := xlAutomatic; Range.Borders[xlEdgeTop].LineStyle := xlContinuous; Range.Borders[xlEdgeTop].Weight := xlMedium; Range.Borders[xlEdgeTop].ColorIndex := xlAutomatic; Range.Borders[xlEdgeBottom].LineStyle := xlContinuous; Range.Borders[xlEdgeBottom].Weight := xlMedium; Range.Borders[xlEdgeBottom].ColorIndex := xlAutomatic; Range.Borders[xlEdgeRight].LineStyle := xlContinuous; Range.Borders[xlEdgeRight].Weight := xlMedium; Range.Borders[xlEdgeRight].ColorIndex := xlAutomatic;

// бордюр внутренний Range.Borders[xlDiagonalDown].LineStyle := xlNone; Range.Borders[xlDiagonalUp ].LineStyle := xlNone; Range.Borders[xlEdgeLeft].LineStyle := xlContinuous; Range.Borders[xlEdgeLeft].Weight := xlMedium; Range.Borders[xlEdgeLeft].ColorIndex := xlAutomatic; Range.Borders[xlEdgeTop].LineStyle := xlContinuous; Range.Borders[xlEdgeTop].Weight := xlMedium; Range.Borders[xlEdgeTop].ColorIndex := xlAutomatic; Range.Borders[xlEdgeBottom].LineStyle := xlContinuous; Range.Borders[xlEdgeBottom].Weight := xlMedium; Range.Borders[xlEdgeBottom].ColorIndex := xlAutomatic; Range.Borders[xlEdgeRight].LineStyle := xlContinuous; Range.Borders[xlEdgeRight].Weight := xlMedium; Range.Borders[xlEdgeRight].ColorIndex := xlAutomatic; Range.Borders[xlInsideVertical].LineStyle := xlContinuous; Range.Borders[xlInsideVertical].Weight := xlThin; Range.Borders[xlInsideVertical].ColorIndex := xlAutomatic; Range.Borders[xlInsideHorizontal].LineStyle := xlContinuous; Range.Borders[xlInsideHorizontal].Weight := xlThin; Range.Borders[xlInsideHorizontal].ColorIndex := xlAutomatic;

где Range - Ячейка

Delphi & Excel Найти похожие ветки