Menu
Aim to Achieve: To get rid of borders if any in the cells of range.
I have :
Dim range As Excel.Range = sheet.Range("A2:K100")
For Each cell In range
// Some cells in the Range has borders
// How to remove borders from cells in the range
Next cell
Please help.. !
I am new to Vb.net !
705
Removing borders is similar to creating borders. All you have to do is set the . LineStyle property to xlNone.
On a worksheet, select the cell or range of cells that you want to remove a border from. To cancel a selection of cells, click any cell on the worksheet. Click Home > the Borders arrow > Erase Border, and then select the cells with the border you want to erase.
Another way to add borders around cells is to use the Borders tool on the toolbar. You can use this tool by following these steps: Select the cell or range of cells that you want bordered. If the type of border you want applied appears on the Borders tool, click on it and you are finished.
range.Borders(Excel.XlBordersIndex.xlEdgeLeft).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlEdgeRight).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlEdgeTop).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlEdgeBottom).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlInsideHorizontal).LineStyle = Excel.XlLineStyle.xlLineStyleNone
range.Borders(Excel.XlBordersIndex.xlInsideVertical).LineStyle = Excel.XlLineStyle.xlLineStyleNone
Removes the borders around the cells and between cells (via xlInsideHorizontal and xlInsideVertical). If you expect diagonal borders, include xlDiagonalDown and xlDiagonalUp.
Okay, the above code was very verbose. The following should do it too:
For Each border in range.Borders
border.LineStyle = Excel.XlLineStyle.xlLineStyleNone
Next
See: http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.borders.aspx
EDIT:
While looking over the MSDN page, I'm wondering if this one liner could do it too:
range.Borders.LineStyle = Excel.XlLineStyle.xlLineStyleNone
Range("A2:K100").Borders.LineStyle = xlNone
37
If you love us? You can donate to us via Paypal or buy me a coffee so we can maintain and grow! Thank you!
Donate Us With
