Bonjour Thibault,
Merci pour votre réponse.
Je cherche en fait à faire ouvrir une fenêtre writer dans un document
impress pour pouvoir utiliser les fonctionnalités de Dmaths et donc
insérer "facilement" des formules dans la présentation.
J'écris donc comme dernières lignes :
obj.EmbeddedObject.Component.Text.String= ""
ThisComponent.CurrentController.Select(obj)
Pour que l'objet inséré soit sélectionné et donc éditable par double-clic.
Est-il possible d'écrire du code qui équivaut à ce double clic, pour
que l'objet soit mis directement en mode édition ?
Merci d'avance.
Thibault Vataire a écrit :
> Bonjour,
>
> Le problème de votre exemple vient de la manière dont vous modifiez les
> valeurs de positions et de taille.
> Voici comment procéder pour que cela fonctionne :
>
> sub insereTexte
>
> dim obj as object
> dim aPos as variant
> dim aSize as variant
>
> obj = ThisComponent.CreateInstance("com.sun.star.drawing.OLE2Shape")
>
> aPos = obj.position
> aPos.x = 2000
> aPos.y = 2000
> obj.position = aPos
>
> aSize = obj.size
> aSize.height = 2000
> aSize.width = 2000
> obj.size = aSize
>
> obj.CLSID = "8BC6B165-B1B2-4EDD-aa47-dae2ee689dd6"
> obj.name = "WriterObj"
> thisComponent.drawpages(0).add(obj)
> obj.EmbeddedObject.Component.Text.String= "C'est dur linfo"
>
> end sub
>
> Cordialement.
> T. Vataire
>
> ---------------------------------------------------------------------
> To unsubscribe, e-mail: [email protected]
> For additional commands, e-mail: [email protected]
>
>
>
--
Didier Dorange-Pattoret
http://www.dmaths.org
http://sesamath.net
Soutenez le projet Dmaths : rejoignez le club ou faites adhérer votre
établissement !
http://www.dmaths.org/documentation/doku.php?id=presentation:club
