Вот так это делает сам Excel:
Код:
1 2 3 4 5 6 7 8 9 | Range("D7:J18").Select
Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.ColorIndex = 0
.TintAndShade = 0
.Weight = xlThin
End With
|
Через позднее связываение прямо так же и пишешь.