Re: [libreoffice-users] Anchoring multiple images in Writer Tables

On 23/09/2012 19:06, Mirosław Zalewski wrote:
> On 23/09/2012 at 18:43, AndrewB <andrew@hippofarms.freeserve.co.uk> wrote:
>
> > Do I really have to do them one-at-a-time?
> You can write a macro or unzip ODT file and modify one of XML files in there.
hope this code will help

greetz

fernand

sub changeanchoring
odocument = thiscomponent
Dim oDocGraphics as Object
dim oGraphic1 as Object
dim sGfilename as string
dim vAlleFotos as variant

GlobalScope.BasicLibraries.loadLibrary("Tools")
oDocGraphics = odocument.GraphicObjects

 vAlleFotos = oDocGraphics.getElementNames()
             For iG = 0 to oDocGraphics.count - 1
             iFotNr = ig + 1

                sFotMetNr = vAlleFotos(iG)
                oGraphic1 = oDocGraphics.GetbyName(sFotMetNr)
                 if oGraphic1.AnchorType <> 
com.sun.star.text.TextContentAnchorType.AS_CHARACTER
         oGraphic1.AnchorType = 
com.sun.star.text.TextContentAnchorType.AS_CHARACTER
 endif
next
end sub

> But if you don't have any programming background, then I am afraid that doing
> them one-by-one will be easiest solution. Quite tiresome, though.


--
For unsubscribe instructions e-mail to: users+help@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