Bonjour à tous,
N'ayant malheureusement pas beaucoup de succès avec ma bibliothèque fantôme, je
me suis décidé à porter ma petite appli sous Ooo3.2. Ca avance un peu, mais
vous risquez de me voir souvent par ici dans les jours qui viennent ! Je
suppose que toutes les erreurs de codage qui pouvaient passer sous 1.1.4 ne
passent plus dans les versions modernes.
Bref, j'en viens à mon problème du moment. Voici un bout de code qui permettait
d'afficher un cadre à bords arrondis. Il ne marche plus, mais je n'ai pas de
message d'erreur. Peut-être pouvez-vous m'aider
Dim Taille1 As New com.sun.star.awt.Size
MonTexte = MonDocument.Text
Moncurseur = MonTexte.createTextCursor
Dim MonCadre1 as object
MonCadre1 = MonDocument.createInstance("com.sun.star.drawing.RectangleShape")
Taille1.Width = 8000
Taille1.Height = 3000
With MonCadre1
.CornerRadius = 600
.FillColor = RGB (255,255,255)
.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PARAGRAPH
.VertOrient = com.sun.star.text.VertOrientation.NONE
.VertOrientPosition = 1500
.HoriOrient = com.sun.star.text.HoriOrientation.NONE
.HoriOrientPosition = 8000
.Size = Taille1
End With
MonTexte.insertTextContent(Moncurseur, MonCadre1, false)
D'avance merci,
Martin
