OpenOffice.info

Verfasst: **So, 17.06.2012 16:31**

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

Verfasst: **So, 17.06.2012 20:40**

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

OpenOffice.info

Calc - senkrechte Linien

Re: Calc - senkrechte Linien

Re: Calc - senkrechte Linien