Eliminar bordes

30/05/2004 - 08:07 por Jesús Román | Informe spam

Mi duda es la siguiente:
Es necesario todo este bloque para borrar completamente las lineas de
bordes?

Selection.Borders(xlDiagonalDown).LineStyle = xlNone
Selection.Borders(xlDiagonalUp).LineStyle = xlNone
Selection.Borders(xlEdgeLeft).LineStyle = xlNone
Selection.Borders(xlEdgeTop).LineStyle = xlNone
Selection.Borders(xlEdgeBottom).LineStyle = xlNone
Selection.Borders(xlEdgeRight).LineStyle = xlNone
Selection.Borders(xlInsideVertical).LineStyle = xlNone
Selection.Borders(xlInsideHorizontal).LineStyle = xlNone

Hasta ahora yo utilizaba esta única línea para hacer lo anterior, pero tiene
el defecto de que no elimina las diagonales
Range("A1:DZ3").Borders.colorindex = xlnone

Ahora tengo que hacer lo siguiente:
Range("A1:DZ3").Borders.ColorIndex = xlNone
Range("A1:DZ3").Borders(xlDiagonalDown).LineStyle xlNone
Range("A1:DZ3").Borders(xlDiagonalUp).LineStyle = xlNone

Alguna sugerencia mejor a la anterior????
Gracias!

Siga el debate

1 respuesta

Tengo una respuesta

Preguntas similare

Mostrar todos los temas similares

Leer las respuestas

#1 Héctor Miguel

31/05/2004 - 09:46 | Informe spam

hola, Jesús !

... todo este bloque para borrar completamente las lineas de bordes? [...]
... utilizaba esta unica linea ... pero ... no elimina las diagonales
Range("A1:DZ3").Borders.colorindex = xlnone
Ahora tengo que hacer lo siguiente:
Range("A1:DZ3").Borders.ColorIndex = xlNone
Range("A1:DZ3").Borders(xlDiagonalDown).LineStyle = xlNone
Range("A1:DZ3").Borders(xlDiagonalUp).LineStyle = xlNone
Alguna sugerencia mejor a la anterior????

la forma 'mas corta' [que he encontrado] para eliminar los bordes de un rango >incluyendo< los 'diagonales' es:
=>CommandBars.FindControl(Id:1).Execute<'pero'... [tiene un 'pequeño-gran' DEFECTO] el rango 'afectable' necesariamente debera estar 'seleccionado' :((
si tu necesidad es 'conservar' [en caso de que la hubiera] una 'previa_seleccion_actual'...
'tendrias que' utilizar una macro +/- como la siguiente: [no se si salga 'mas caro el caldo que las albondigas'] ;)
¿comentas?
saludos,
hector.

Sub Eliminar_Bordes()
Application.ScreenUpdating = False
Dim Seleccion_Actual As String, Celda_Activa As String
Seleccion_Actual = Selection.Address
Celda_Activa = ActiveCell.Address
Range("a1:dz3").Select
CommandBars.FindControl(Id:1).Execute
Range(Seleccion_Actual).Select
If Selection.Count > 1 Then Range(Celda_Activa).Activate
End Sub

Siga el debate Respuesta

Responder a este mensaje

Ads by Google

Hacer una pregunta

Tengo una respuesta

Busqueda sugerida