> La conclusion semble donc être qu'il faut absolument définir la propriété > "lineStyle" d'un cadre, faute de quoi on est pas certain qu'il soit visible.
Non je ne pense pas car de mon coté, les cadres insérés dans un document sont systématiquement visibles. Je pense plutot que votre macro modifie cette propriété d'une façon ou d'une autre. Testez avec cette macro pour vous en assurer : sub main dim const horiPos = 0 dim const width = 8000 dim const height = 3000 Dim MonDocument as object MonDocument = starDesktop.loadComponentFromUrl("private:factory/swriter", _ "_blank", _ com.sun.star.frame.FrameSearchFlag.CREATE, _ array()) MonTexte = MonDocument.Text Moncurseur = MonTexte.createTextCursor() MonTexte.insertTextContent(Moncurseur, createFrame(width, height, 1500, horiPos, MonDocument), false) MonTexte.insertTextContent(Moncurseur, createFrame(width, height, 4500, horiPos, MonDocument), false) MonTexte.insertTextContent(Moncurseur, createFrame(width, height, 7500, horiPos, MonDocument), false) end sub function createFrame(width as long, height as long, vertOriPos as long, horiOriPos as long, MonDocument as object) as object Dim Taille1 As New com.sun.star.awt.Size dim MonCadre1 as object MonCadre1 = MonDocument.createInstance("com.sun.star.drawing.RectangleShape") Taille1.Width = width Taille1.Height = height 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 = vertOriPos .HoriOrient = com.sun.star.text.HoriOrientation.NONE .HoriOrientPosition = horiOriPos .Size = Taille1 End With createFrame = MonCadre1 end function Par contre, il est étrange que dans votre cas, les cadres soient parfois visible et parfois non. Cordialement, T. Vataire --------------------------------------------------------------------- To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org --------------------------------------------------------------------- To unsubscribe, e-mail: prog-unsubscr...@fr.openoffice.org For additional commands, e-mail: prog-h...@fr.openoffice.org