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
Viele Grüße
Ich Bins