To comment on the following update, log in, then open the issue:
http://www.openoffice.org/issues/show_bug.cgi?id=74667


User dr changed the following:

                What    |Old value                 |New value
================================================================================
             Assigned to|tbe                       |oc
--------------------------------------------------------------------------------




------- Additional comments from [EMAIL PROTECTED] Mon Apr 21 08:44:13 +0000 
2008 -------
The following macro should set a red top border to cell B2, and a green top
border to the "Default" cell style, resulting in green top borders for all other
cells.


Sub Main
        oCell = ThisComponent.Sheets(0).getCellByPosition(1,1)
        oBorder = oCell.TableBorder
        oBorder.IsTopLineValid = True
        oLine = oBorder.TopLine
        oLine.OuterLineWidth = 100
        oLine.Color = &HFF0000
        oBorder.TopLine = oLine
        oCell.TableBorder = oBorder

        oStyle = 
ThisComponent.StyleFamilies.getByName("CellStyles").getByName("Default")
        oBorder = oStyle.TableBorder
        oBorder.IsTopLineValid = True
        oLine = oBorder.TopLine
        oLine.OuterLineWidth = 100
        oLine.Color = &H00FF00
        oBorder.TopLine = oLine
        oStyle.TableBorder = oBorder
End Sub

---------------------------------------------------------------------
Please do not reply to this automatically generated notification from
Issue Tracker. Please log onto the website and enter your comments.
http://qa.openoffice.org/issue_handling/project_issues.html#notification

---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]


---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]

Reply via email to