Hello,

> From: Hung Mark [mailto:mark...@gmail.com] 

> How to change text flow direction in a table with macro?

See this example:

Sub Snippet

  Dim oCurrentController As Variant
  Dim oViewCursor As Variant
  Dim oCell As Variant
  Dim nVertOrient As Integer

  oCurrentController = ThisComponent.getCurrentController()
  oViewCursor = oCurrentController.getViewCursor()
  oCell = oViewCursor.Cell
  
  '.VertOrient --> 0 - None , 1 - top ,2 - middle, 3 - bottom
  'other values see:
  
'http://www.openoffice.org/api/docs/common/ref/com/sun/star/text/VertOrientation.html

  oCell.VertOrient = 3 

  'or use:
  'oCell.VertOrient = com.sun.star.text.VertOrientation.BOTTOM
  
  'msgbox oCell.VertOrient
End Sub



Greetings,
Jörg


---------------------------------------------------------------------
To unsubscribe, e-mail: api-unsubscr...@openoffice.apache.org
For additional commands, e-mail: api-h...@openoffice.apache.org

Reply via email to