Visual Basic - Bordes de Celdas en Excel desde VB

Life is soft - evento anual de software empresarial
 
Vista:

Bordes de Celdas en Excel desde VB

Publicado por Loquillo (47 intervenciones) el 03/11/2003 19:06:09
Hola, necesito poner distintos bordes a las celdas donde ya existen datos, los colores ya estan, pero me dan un borde unico y deseo cambiarlo
Por otro lado, necesito saber como guardar automaticamente sin que el Archivo se muestre en pantalla (el nombre esta predefinido)
Gracias
Valora esta pregunta
Me gusta: Está pregunta es útil y esta claraNo me gusta: Está pregunta no esta clara o no es útil
0
Responder

RE:Bordes de Celdas en Excel desde VB

Publicado por Cecilia Colalongo (3116 intervenciones) el 04/11/2003 10:09:46
Lo puedes hacer grabando una macro en Excel con lo que quieres hacer y luego copiando el código. Para los bordes:

With ObjetoExcel
.Range("A1:B2").Select
.Selection.Borders(xlDiagonalDown).LineStyle = xlNone
.Selection.Borders(xlDiagonalUp).LineStyle = xlNone
With .Selection.Borders(xlEdgeLeft)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Selection.Borders(xlEdgeTop)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Selection.Borders(xlEdgeBottom)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Selection.Borders(xlEdgeRight)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Selection.Borders(xlInsideVertical)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
With .Selection.Borders(xlInsideHorizontal)
.LineStyle = xlContinuous
.Weight = xlThin
.ColorIndex = xlAutomatic
End With
End With

Para grabar el archivo lo puedes hacer con el método ObjetoExcel.Save "MiArchivo.xls"
Valora esta respuesta
Me gusta: Está respuesta es útil y esta claraNo me gusta: Está respuesta no esta clara o no es útil
0
Comentar