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]
