Re: [libreoffice-users] Base macros

Hi Edwin,

How should an external viewer open another picture, which isn't linked 
in the form? A macro will open the thumbnails.

Link the original fotos to the form. Then take this procedure:

SUB ShowLinkedContent(oEvent AS OBJECT)
        DIM oButton AS OBJECT, oForm AS OBJECT, oField AS OBJECT, oShell AS OBJECT
        DIM stField AS STRING, stUrl AS STRING, stContent AS STRING
        DIM arUrl_Start()
        oButton = oEvent.Source.Model
        stField = oButton.Tag
        oForm = oButton.Parent
        oField = oForm.getByName(stField)
        stUrl = oField.BoundField.getString
        arUrl_Start = split(oDoc.Parent.Url,oDoc.Parent.Title)
        oShell = createUnoService("com.sun.star.system.SystemShellExecute")
        stContent = convertToUrl(arUrl_Start(0) + stUrl)
        oShell.execute(stContent,,0)
END SUB

Write the name of the image control to the additional information of the 
button, which should start this procedure.

Regards

Robert
--
Homepage: https://www.familiegrosskopf.de/robert


--
To unsubscribe e-mail to: users+unsubscribe@global.libreoffice.org
Problems? https://www.libreoffice.org/get-help/mailing-lists/how-to-unsubscribe/
Posting guidelines + more: https://wiki.documentfoundation.org/Netiquette
List archive: https://listarchives.libreoffice.org/global/users/
Privacy Policy: https://www.documentfoundation.org/privacy