[libreoffice-users] LO WRITER BASIC: insert an image, put a drawing-text on top and jump to next page

Hello all,

I'm writing a macro to create a document entirely based on 
database-contents.
I have an image (page-sized) that should come on the first page, and 
then I should put the title on top of it and the jump to the next page. 
The part that follows (TOC + further contents of the document) is about 
finished and working but I have trouble with my title-page.

I tried to record the inserting of the image, then add text on top of it 
using the drawing toolbar, then set the properties of that text to 
centered (horizontal and vertical), size it to the text and then jump to 
the next page.

This resulted in this:

sub afbeelding_en_titel
rem ----------------------------------------------------------------------
rem define variables
dim document   as object
dim dispatcher as object
rem ----------------------------------------------------------------------
rem get access to the document
document   = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")

rem ----------------------------------------------------------------------
dim args2(3) as new com.sun.star.beans.PropertyValue
args2(0).Name = "FileName"
args2(0).Value = 
"file:///home/alain/Data/Indiegroup/Cover%20Offerte%20Site%20Builder.jpg"
args2(1).Name = "FilterName"
args2(1).Value = "<Alle indelingen>"
args2(2).Name = "AsLink"
args2(2).Value = false
args2(3).Name = "Style"
args2(3).Value = "Afbeeldingen"

dispatcher.executeDispatch(document, ".uno:InsertGraphic", "", 0, args2())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:InsertDraw", "", 0, Array())

rem ----------------------------------------------------------------------
rem dispatcher.executeDispatch(document, ".uno:TransformDialog", "", 0, 
Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:TextAttributes", "", 0, Array())

rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertLinebreak", "", 0, Array())

As you can see the recording didn't work after the inserting of the 
image and I find no documentation that accurately helps me figure it out 
the InsertDraw, TransformDialog and TextAttributes myself.

Could anybody help me on this one?
Any suggestion is welcome...

Thanks in advance,
Alain



--
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? http://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: http://wiki.documentfoundation.org/Netiquette
List archive: http://listarchives.libreoffice.org/global/users/
All messages sent to this list will be publicly archived and cannot be deleted