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

I believe that there are examples of inserting an image AndrewMacro.odt 
and probably also OOME (also available from my web site).

Does this at least get you started?

You stated that you were pulling data from a DB, how do you get your 
data from your database?

On 08/15/2013 05:48 AM, Alain Van Utterbeeck wrote:
> 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

--
Andrew Pitonyak
My Macro Document: http://www.pitonyak.org/AndrewMacro.odt
Info:  http://www.pitonyak.org/oo.php


--
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