Код:
XlWorkSheet.Range(RangeAux).Borders.Item(Const.xlEdgeRight).LineStyle := xlContinuous;
XlWorkSheet.Range(RangeAux).Borders.Item(Const.xlEdgeRight).Weight := xlMedium;
XlWorkSheet.Range(RangeAux).Borders.Item(Const.xlEdgeLeft).LineStyle := xlContinuous;
XlWorkSheet.Range(RangeAux).Borders.Item(Const.xlEdgeLeft).Weight := xlMedium;
... и .т.п.
Код:
xlEdgeBottom = 9
xlEdgeLeft = 7
xlEdgeRight = 10
xlEdgeTop = 8
xlContinuous = 1
xlMedium = -4138