Zellen umranden

[linus]

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

[schosch]

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 ... 6&start=15

gruß
Georg

[linus]

Hallo Georg,

funktioniert bestens. Danke.

Danke für den Hinweis auf das englischsprachige Forum.

Gruß Linus