ich versuche gerade die Zellen in einer Tabelle dünn zu umranden. Gleichzeitig soll aber die gesamte Tabelle fett umrandet sein. Also so:

Das habe ich natürlich in Excel gemacht, sonst müsste ich ja nicht fragen wie es in OOo geht.

Vielen Dank!
Moderator: Moderatoren
Ja, natürlich. Ich sehe auch das es nicht helfen wird, aber trotzdem folgende Argumentationshilfe für die lieben Kollegen die belegt das es in Calc genau den selben 'Klickaufwand' erfordert wie in Excel:Bestimmt kennt ihr das auch, alles was neu ist, ist auch erstmal schlecht.
ich hoffe wir reden immer noch über ein Tabellenblatt? Weil Zellen sind keine Felder und umgekehrt.Der Trick mit der Umrandung klappt erst ab 3 x 3 Felder
Nein.Hab ich was falsch gemacht?
Code: Alles auswählen
Sub Bereich_rahmen()
bereich = ThisComponent.getCurrentSelection()
aussenlinie = CreateUnoStruct("com.sun.star.table.BorderLine")
innenlinie = CreateUnoStruct("com.sun.star.table.BorderLine")
With aussenlinie
.Color = RGB( 0, 0, 0 )
.InnerLineWidth = 100
.OuterLineWidth = 0
.LineDistance = 0
End With
With innenlinie
.Color = RGB( 0, 0, 0 )
.InnerLineWidth = 10
.OuterLineWidth = 0
.LineDistance = 0
End With
linien = createUnoStruct("com.sun.star.table.TableBorder")
With linien
.TopLine = aussenlinie
.IsTopLineValid = True
.BottomLine = aussenlinie
.IsBottomLineValid = True
.LeftLine = aussenlinie
.IsLeftLineValid = True
.RightLine = aussenlinie
.IsRightLineValid = True
.HorizontalLine = innenlinie
.IsHorizontalLineValid = True
.VerticalLine = innenlinie
.IsVerticalLineValid = True
End With
bereich.TableBorder = linien
End Sub