Laurent Godard wrote:
Hi again
Any way to tell an image i insert in a TextFrame to be visible by
default ? (i would prefer get rid of the dispatcher call)
digging with Xray on my image
i find, when it is invisible
image.LayerName = "Hell"
If set to foreground manually
image.LayerName = "Heaven"
Quite poetic isn't it ?
But how can i set these layers in writer
Laurent,
I neve had this problem inserting images, but
I had the same problem inserting textshapes in a writer doc
and used also this "heaven" and "hell" thing
here is mi code
oShape =
Thiscomponent.createInstance("com.sun.star.drawing.RectangleShape")
oText.insertTextContent(oVC, oShape, false)
oShape.Surround = 1
oshape.LayerName = "Heaven" ' "Hell"
oShape.fillcolor = 10079487
oShape.name = "st_OKK_" & ucase(environ("USERNAME")) & " " & now
oShape.string = ucase(environ("USERNAME"))
oShape.CharFontName = "Arial Black"
oShape.CharFontPitch = 2
oShape.CharHeight = 10
oShape.CharColor = rgb(255,255,255)
oShape.Textwrap = 1
oShape.TextWordWrap = True
oShape.IsFollowingTextFlow = True
oShape.TextHorizontalAdjust = 1
'oShape.TextAnimationKind = 1
dim aSize As New com.sun.star.awt.Size
aSize.width = 900
asize.height = 600
oshape.setsize(asize)
oShape.AnchorType = com.sun.star.text.TextContentAnchorType.AT_PAGE
oShape.HoriOrient = NONE
oShape.VertOrient = NONE
oShape.VertOrientRelation = PAGE_PRINT_AREA
oShape.HoriOrientRelation = PAGE_PRINT_AREA
Hopes it helps a bit
Laurent
---------------------------------------------------------------------
To unsubscribe, e-mail: [EMAIL PROTECTED]
For additional commands, e-mail: [EMAIL PROTECTED]
