von Stephan » So, 15.08.2004 12:01
Code: Alles auswählen
Sub zelle_umrahmen
'Zellbereich oder Zelle angeben, für Zelle z.B. A1:A1
zelle = ThisComponent.Sheets(0).getCellRangeByName( "A1:A5" )
linie = CreateUnoStruct("com.sun.star.table.BorderLine")
With linie
.Color = RGB( 0, 0, 255 )
.InnerLineWidth = 0
'löschen mit .OuterLineWidth = 0 möglich
.OuterLineWidth = 20
.LineDistance = 0
End With
zelle.TopBorder = linie
zelle.BottomBorder = linie
zelle.LeftBorder = linie
zelle.RightBorder = linie
End Sub
Stephan
[code]Sub zelle_umrahmen
'Zellbereich oder Zelle angeben, für Zelle z.B. A1:A1
zelle = ThisComponent.Sheets(0).getCellRangeByName( "A1:A5" )
linie = CreateUnoStruct("com.sun.star.table.BorderLine")
With linie
.Color = RGB( 0, 0, 255 )
.InnerLineWidth = 0
'löschen mit .OuterLineWidth = 0 möglich
.OuterLineWidth = 20
.LineDistance = 0
End With
zelle.TopBorder = linie
zelle.BottomBorder = linie
zelle.LeftBorder = linie
zelle.RightBorder = linie
End Sub[/code]
Stephan