Advertisement
siedlerchr

GetHorizontalAlignment in OO Basic

Oct 10th, 2015
1,083
Never
Not a member of Pastebin yet? Sign Up, it unlocks many cool features!
  1. 'Get HorizontalAlignment of SheetCell in open office basic 
  2. Private Function GetHorizontalAlignment(sheetCell As SheetCell) As String
  3.  
  4. Dim cellHalign,colFormat
  5. cellHalign = com.sun.star.table.CellHoriJustify
  6.  
  7. Select Case sheetCell.HoriJustify
  8. Case cellHalign.LEFT
  9.     colFormat = colFormat +"l"
  10. Case cellHalign.CENTER
  11.     colFormat = colFormat + "c"
  12. Case Else
  13.     colFormat = colFormat + "r"
  14.     End Select
  15.  
  16. GetHorizontalAlignment = colFormat
  17. End Function
Advertisement
RAW Paste Data Copied
Advertisement