OpenOffice.info

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

Hallo,
Versuch es mal so:
[code]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[/code]

Gruß R

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