Check Cell Border Style in LO Calc

Sub CheckCellBorderStyles(tableBorder As TableBorder2)


'debug purpose
    msgbox "cell Border TopLine style " & tableBorder.TopLine.LineStyle
    msgbox "cell Border Horizontal style " & tableBorder.HorizontalLine.LineStyle
    msgbox "cell Border VerticalLine style " & tableBorder.VerticalLine.LineStyle
    msgbox "cell Border LeftLine style " & tableBorder.LeftLine.LineStyle
    msgbox "cell Border RightLine style " & tableBorder.RightLine.LineStyle


    GetLineStyleConstant(tableBorder.TopLine.LineStyle)
    GetLineStyleConstant(tableBorder.BottomLine.LineStyle)
    GetLineStyleConstant(tableBorder.HorizontalLine.LineStyle)
    GetLineStyleConstant(tableBorder.VerticalLine.LineStyle)
    GetLineStyleConstant(tableBorder.LeftLine.LineStyle)
    GetLineStyleConstant(tableBorder.RightLine.LineStyle)
End sub

Sub GetLineStyleConstant(myStyle)

styleConstant =   com.sun.star.table.BorderLineStyle
'see http://api.libreoffice.org/docs/idl/ref/namespacecom_1_1sun_1_1star_1_1table_1_1BorderLineStyle.html

Select Case myStyle
Case styleConstant.SOLID
            msgbox "solid"
Case styleConstant.NONE
            msgbox "border none"
Case styleConstant.DOUBLE
            msgbox "double"

Case Else
            msgbox "else"

End Select

End sub