BITTE helfen Sie uns HEUTE mit einer SPENDE
Helfen Sie das LibreOffice Forum zu erhalten!

❤️ DANKE >><< DANKE ❤️

> KEINE WERBUNG FÜR REGISTRIERTE BENUTZER!<
Ihre Spende wird für die Deckung der laufenden Kosten sowie den Erhalt und Ausbau 🌱 des LibreOffice Forums verwendet.
🤗 Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet. 🤗

[GELÖST] Umrandung nur oben und unten

Alles zur Programmierung im LibreOffice.
Antworten
Ich Bins
Beiträge: 236
Registriert: Do 2. Aug 2018, 12:30

[GELÖST] Umrandung nur oben und unten

Beitrag von Ich Bins » Sa 28. Jan 2023, 22:29

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) 39-mal heruntergeladen
Was könnt die Ursache sein?

Viele Grüße
Ich Bins
Zuletzt geändert von Ich Bins am Mo 30. Jan 2023, 15:34, insgesamt 1-mal geändert.

mikele
Beiträge: 1642
Registriert: Mo 1. Aug 2011, 20:51

Re: Umrandung nur oben und unten

Beitrag von mikele » So 29. Jan 2023, 14:40

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
Gruß,
mikele

Ich Bins
Beiträge: 236
Registriert: Do 2. Aug 2018, 12:30

Re: Umrandung nur oben und unten

Beitrag von Ich Bins » Mo 30. Jan 2023, 15:34

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

An alle, die das LibreOffice-Forum nutzen:


Bitte beteiligen Sie sich mit 7 Euro pro Monat und helfen uns bei unserem Budget für das Jahr 2024.
Einfach per Kreditkarte oder PayPal.
Als Dankeschön werden Sie im Forum als LO-SUPPORTER gekennzeichnet.

❤️ Vielen lieben Dank für Ihre Unterstützung ❤️

Antworten