Mega Code Archive

 

Categories / VisualBasic Script / Excel

 

Line style

Sub BorderLineSytlesII()      Dim rg As Range      Set rg = ThisWorkbook.Worksheets("Borders").Range("A1:E3")      rg.Offset(1, 2).Borders(xlEdgeBottom).LineStyle = xlSlantDashDot     Set rg = Nothing  End Sub