[Solved] Setting Text Alignment Property

[bartjeman]

I have a Sub to print a text box. I want to pass the desired alignment to the sub - something like this:

Code: Select all

Sub DrawText(RectPosition as Object, Size as Object, oDP as Object, Align as String, TextString as String)
   oShape = ThisComponent.createInstance("com.sun.star.drawing.TextShape")
   oDP.add(oShape)
   oShape.Position = RectPosition
   oShape.Size = Size
   oShape.CharHeight = 12
   Align = "com.sun.star.drawing.TextHorizontalAdjust." & Align
   oShape.TextHorizontalAdjust = Align
   oShape.setString(TextString)
   oShape.CharFontName = "Arial"
End Sub

Of course this does not work so I would appreciate some help on how I can pass CENTER, LEFT or RIGHT to this Sub
Thanks

[FJCC]

I would use the Align variable in a CASE statement to set another variable to the value of the enum

Code: Select all

SELECT CASE Align
CASE "LEFT"
	Alignment = com.sun.star.drawing.TextHorizontalAdjust.LEFT
CASE "CENTER"
	Alignment = com.sun.star.drawing.TextHorizontalAdjust.CENTER
...
END SELECT
oShape.TextHorizontalAdjust = Alignment

[bartjeman]

Thanks FJCC!