Intenta interpretar el código bien previamente a usarlo a tu trabajo y si ttienes algo que aportar puedes decirlo en los comentarios.
Solución:
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
Elimina los bordes alrededor de las celdas y entre celdas (a través de xlInsideHorizontal
y xlInsideVertical
). Si espera bordes diagonales, incluya xlDiagonalDown
y xlDiagonalUp
.
Bien, el código anterior era muy detallado. Lo siguiente también debería hacerlo:
For Each border in range.Borders
border.LineStyle = Excel.XlLineStyle.xlLineStyleNone
Next
Consulte: http://msdn.microsoft.com/en-us/library/microsoft.office.interop.excel.borders.aspx
EDITAR:
Mientras miro la página de MSDN, me pregunto si este forro también podría hacerlo:
range.Borders.LineStyle = Excel.XlLineStyle.xlLineStyleNone
Range("A2:K100").Borders.LineStyle = xlNone
¿Por qué todas las respuestas son tan complicadas?
para el uso de toda la hoja…
With .Cells
.Borders.LineStyle = xlLineStyleNone
End With
para un rango simplemente reemplace .Cells según corresponda