I can manage setting a cell's border, but I can't find a way to make it thinner.
Do you might have any suggestion?
Code: Select all
sub settheborder
dim acts, oCells, NewBorder, NewerBorder
acts = thiscomponent.currentcontroller.activesheet
oCells = acts.getCellRangeByName("G11:G11")
NewBorder = oCells.BottomBorder
NewBorder.OuterLineWidth = 288
oCells.BottomBorder = NewBorder
msgbox "now it must be set"
NewerBorder = oCells.BottomBorder
NewerBorder.OuterLineWidth = 8
oCells.BottomBorder = NewerBorder
msgbox "but now it's not changed"
end sub