Re: [api-dev] Insert Formula in a swriter document

[Didier Dorange-Pattoret]

Hello
Sub Main
obj=ThisComponent.CreateInstance("com.sun.star.text.TextEmbeddedObject")
obj.CLSID="078B7ABA-54FC-457F-8551-6147e776a997"
obj.AnchorType = com.sun.star.text.TextContentAnchorType.AS_CHARACTER
CurseurVisible = ThisComponent.CurrentController.ViewCursor
Montexte = Thiscomponent.Text
MonTexte.InsertTextContent(CurseurVisible,obj,false)
TheFormule = obj.Model
TheFormule.Formula = "1 over x"
TheFormule.Modified = TRUE
End Sub
I'm working on 1.9.74m
This macro puts the formula in my text, but I can't see it.
If I click, I can see the right formula, If I click at the second time I 
get the right size.

I need help.
Thank you.
--
Didier Dorange-Pattoret
http://www.dmaths.org
http://sesamath.net
S'inscrire � la liste de diffusion de dmaths: [EMAIL PROTECTED]
Ses archives: http://listes.dmaths.org/wws/arc/users
Les Forums: http://www.dmaths.org/modules.php?name=Forums
Mailing List in english: 
http://www.dmaths.org/modules.php?name=Content&pa=showpage&pid=9

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