Saltar al contenido

¿Cómo eliminar los bordes de las celdas en un rango en Excel usando VB.net?

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

Reseñas y valoraciones del artículo

¡Haz clic para puntuar esta entrada!
(Votos: 0 Promedio: 0)



Utiliza Nuestro Buscador

Deja una respuesta

Tu dirección de correo electrónico no será publicada. Los campos obligatorios están marcados con *