-----Message d'origine----- De : Agnès Simonet [mailto:agne...@laposte.net] Envoyé : samedi 26 juin 2004 14:12 À : pr...@fr.openoffice.org Objet : [prog] autodimensionnement d'un rectangleshape

Bonjour,

Dans une macro, j'aimerais que la largeur de la forme s'adapte à celle du texte qu'elle contient. J'utilise TextAutoGrowWidth mais probablement mal puisque l'effet escompté n'est pas obtenu.

Voici la macro :

Dim MonDocument As Object, MonTexte As Object Dim MonCurseur As Object Dim CurseurVisible As Object Dim MonRectangle As Object Dim Taille1 As New com.sun.star.awt.Size

'dessine un rectangle de dimensions définies, là où de trouve le curseur 'positionne le curseur d'écriture MonDocument = ThisComponent MonTexte = MonDocument.Text CurseurVisible = MonDocument.currentcontroller.ViewCursor MonCurseur= MonTexte.createTextCursor MonCurseur = MonTexte.createTextCursorByRange(CurseurVisible) 'crée un rectangle de dimensions définies Taille1.Width = 5000 Taille1.Height = 2000 MonRectangle=MonDocument.createInstance("com.sun.star.drawing.RectangleS hape") MonRectangle.Size = Taille1 MonTexte.insertTextContent( MonCurseur,MonRectangle,false)

'adapte la largeur du rectangle à celle du texte MonRectangle.TextAutoGrowWidth = true

'texte dans le rectangle 'MonRectangle.String ="blablablablablablablablablablablablablablablabla"

Si quelqu'un pouvait m'éclairer.Merci

Agnès S.