.Borders

sintassi:
intervallo.Borders(posizione).proprietà


posizione:


proprietà:


esempio: bordo sotto della cella B2 ("Scheda") conitnuo, fine, rosso
With Worksheets("Scheda").Range("B2").Borders(xlEdgeBottom)

.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = 3
End With


esempio: borda la selezione esternamente medio, interno fine
Selection.Borders(xlEdgeLeft).Weight = xlMedium
Selection.Borders(xlEdgeTop).Weight = xlMedium
Selection.Borders(xlEdgeBottom).Weight = xlMedium
Selection.Borders(xlEdgeRight).Weight = xlMedium

Selection.Borders(xlInsideVertical).Weight.Weight = xlThin
Selection.Borders(xlInsideHorizontal).Weight = xlThin