OpenOffice.info

Hallo Georg,

funktioniert bestens. Danke.

Danke für den Hinweis auf das englischsprachige Forum.

Gruß Linus

Hallo Linus,
hiermit funktionierts:
----------------------------------------------------
REM ***** BASIC *****

Function MakeCellBorderLine( nColor, nInnerLineWidth, nOuterLineWidth, nLineDistance ) _
As com.sun.star.table.BorderLine
oBorderLine = createUnoStruct( "com.sun.star.table.BorderLine" )
With oBorderLine
.Color = nColor

.InnerLineWidth = nInnerLineWidth
.OuterLineWidth = nOuterLineWidth
.LineDistance = nLineDistance
End With
MakeCellBorderLine = oBorderLine
End Function

Sub Main
...

oCells.LeftBorder = MakeCellBorderLine( 0, 0, 75, 0 )
oCells.RightBorder = MakeCellBorderLine( 0, 0, 75, 0 )
oCells.TopBorder = MakeCellBorderLine( 0, 0, 75, 0 )
oCells.BottomBorder = MakeCellBorderLine( 0, 0, 75, 0 )
End Sub
-------------------------------------------------------------------

hab ich hier gefunden:
http://www.oooforum.org/forum/viewtopic.php?t=4996&start=15

gruß
Georg

Hallo,

Ich möchte jeweils Zellen, in die ich Werte schreibe, umranden.

gibt es einen Befehl mit dem ich das gleich nach dem Ausfüllen der Zelle machen kann?

z.B.
cell1 = blatt.getcellbyposition (0,belegtext)
cell1.formula = tabellenname

cell1."umrandung = xxxx" ?


Gruß Linus