[GELÖST] Umrandung nur oben und unten

[Ich Bins]

Hallo zusammen,

LO 7.4.3.2 (x64)
mit nachfolgendem Code kann ich in einer neuen Arbeitsmappe einen rechteckigen geschlossenen Rahmen erstellen. In der angefügten Arbeitsmappe erstellt der gleiche Code nur oben und unten eine Linie.

Code: Alles auswählen

Sub Umrandung
Dim BasicBorder as New com.sun.star.table.BorderLine
Dim oBorder As Object
oSheet=ThisComponent.Sheets.getByName("Tabelle1")
BasicBorder.Color = RGB(0, 0, 0)
BasicBorder.InnerLineWidth = 0
BasicBorder.OuterLineWidth = 60
BasicBorder.LineDistance = 0
oBorder = oSheet.getCellRangeByPosition(3, 1, 5, 34).TableBorder
oBorder.LeftLine = BasicBorder
oBorder.TopLine = BasicBorder
oBorder.RightLine = BasicBorder
oBorder.BottomLine = BasicBorder
oSheet.getCellRangeByPosition(3, 1, 5, 34).TableBorder = oBorder
End Sub

Umrandung.ods

(12.88 KiB) 133-mal heruntergeladen

Was könnt die Ursache sein?

Viele Grüße
Ich Bins

[mikele]

Hallo,
es müssen auch folgende Eigenschaften gesetzt werden:

Code: Alles auswählen

oBorder.IsLeftLineValid=True
oBorder.IsRightLineValid=True
oBorder.IsTopLineValid=True
oBorder.IsBottomLineValid=True

[Ich Bins]

Hallo mikele,
das war die Lösung, vielen Dank!
Viele Grüße
Ich Bins