OpenOffice.info

Sub ZelleUmranden()
linie = createUnoStruct( "com.sun.star.table.BorderLine" )
With linie
	.Color = RGB(0,0,0)
	.InnerLineWidth = (25.4/72)*75 '0,75pt
End With
'Tabelle1, Zelle A1
With ThisComponent.sheets().GetByName("Tabelle1").getCellByPosition(0,0)
	.TopBorder=linie
	.BottomBorder = linie
	.LeftBorder = linie
	.RightBorder = linie
End With
End Sub

Das sollte mittels Makro gehen. Das folgende Makro zeichnet eine 0,75pt breite Linie um Zelle A1 des Tabellenblattes namens "Tabelle1":

[code]Sub ZelleUmranden()
linie = createUnoStruct( "com.sun.star.table.BorderLine" )
With linie
.Color = RGB(0,0,0)
.InnerLineWidth = (25.4/72)*75 '0,75pt
End With
'Tabelle1, Zelle A1
With ThisComponent.sheets().GetByName("Tabelle1").getCellByPosition(0,0)
.TopBorder=linie
.BottomBorder = linie
.LeftBorder = linie
.RightBorder = linie
End With
End Sub[/code]




Gruß
Stephan