Bonsoir,
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
Cette macro, sous 1.9.74m insère un objet formule, de 2cm x 1 cm blanc.
Si je clique sur la formule elle s'édite et je vois la fraction.
Si je l'édite encore une fois, je la vois et elle prend la taille normale.
Un bug ou je fais une erreur ?
Est-ce la bonne manière pour insérer une macro dans un .odt de la future
2.0 ?
Merci pour vos réponses.
--
Didier Dorange-Pattoret
http://www.dmaths.org
http://sesamath.net
S'inscrire à la liste de diffusion de dmaths: user...@dmaths.org
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
3 messages in org.openoffice.fr.prog[prog] Insérer une formule math dans ...
