> 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: [email protected]
For additional commands, e-mail: [email protected]
---------------------------------------------------------------------
To unsubscribe, e-mail: [email protected]
For additional commands, e-mail: [email protected]
