Calc - senkrechte Linien

[balu]

Hallo DocTaxon,

wo genau an welcher Stelle weiß ich jetzt nicht mehr, aber ich meine das in der deutschen Übersetzung von "Andrew Pitonyak's OpenOffice Macro Information" gelesen zu haben. Download hier: http://www.uni-due.de/~abi070/ooo.html


Gruß
balu

[F3K Total]

Hallo,
Versuch es mal so:

Code: Alles auswählen

sub Rasterx

Dim oBasicBorderD as New com.sun.star.table.BorderLine
Dim oBasicBorderS as New com.sun.star.table.BorderLine

oBasicBorderD.OuterLineWidth = 18
oBasicBorderS.OuterLineWidth = 2

odoc = ThisComponent
osheet = odoc.Sheets.getByIndex(2)
'Bereich
oRange = osheet.getCellRangeByPosition(0,0,2,2)
'vertikale Linien
with  oRange
    .RightBorder = oBasicBorderS
end with

'Bereichsumrandung
oBorder=oRange.TableBorder
   with oBorder
    .BottomLine = oBasicBorderD
    .TopLine = oBasicBorderD
    .LeftLine = oBasicBorderD
    .RightLine = oBasicBorderS
   end with
oRange.TableBorder=oBorder
   
end sub

Gruß R