Bonsoir à tous,
Voici un bout de code qui permet d'insérer un objet OLE2 swriter dans
Impress.
/Sub InsereTexte
obj = ThisComponent.CreateInstance("com.sun.star.drawing.OLE2Shape")
obj.Position.X = 2000
obj.Position.X = 2000
obj.Size.Height = 2000
obj.Size.Width = 2000
obj.CLSID = "8BC6B165-B1B2-4EDD-aa47-dae2ee689dd6"
ThisComponent.Drawpages(0).add(obj)
obj.EmbeddedObject.Component.Text.String= "C'est dur linfo"
End Sub/
Problème : l'objet , de taille minuscule, est positionné tout en haut à
gauche. Toutefois, on peut l'éditer en double-cliquant.
Je souhaiterais en fait obtenir le même résultat qu'en suivant :
*"Insertion->Objet->Objet OLE->Texte OpenOffice"*
Avez-vous une idée ?
Merci d'avance.
--
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
