j'ai inséré un dessin dans un document LOo avec cette macro:
Code : Tout sélectionner
def ligneBriseeDansTexte():
from com.sun.star.awt import Size
from com.sun.star.text.TextContentAnchorType import AT_PAGE
doc = XSCRIPTCONTEXT.getDocument()
jtxt = doc.Text
#jCurs = jtxt.createTextCursor
collec = createUnoService("com.sun.star.drawing.ShapeCollection")
for i in range(2):
jForm = doc.createInstance("com.sun.star.drawing.PolyLineShape")
jForm.AnchorType = AT_PAGE
#doc.DrawPage.add(jForm)
jpoint = (Point(9000,2000), Point(11500,400), Point(16500,8000))
#jtxt.insertTextContent(jCurs, jForm, False)
jForm.PolyPolygon = (jpoint,)
jpos = Point(3500,10000)
collec.add(jForm)
a = [1,-1][i==0]
jForm.Position = jpos
jsize = Size(3000,a*5000)
jForm.Size = jsize
doc.DrawPage.add(jForm)
jForm = doc.DrawPage.group(collec)
#jForm.Position = Point(3500,10000)
return
Le problème est le même avec Aoo et macro en basic.
A plus.