Excel VisualBasic Script

  1. Home
  2. VisualBasic Script
  3. Excel
  4. 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