Ahoj prosil by som o pomoc s makrom.
Nasledovný kód mi otvorí dialóg tak ako by som ho otvoril nasledovne:
Vložiť>OLE objekt>QR a čiarový kód
potreboval by som prevzalo premennú iban do poľa URL/Text, a uložilo QR kód ako by som stlačil OK na dialógovom okne, samozrejme bez toho aby dialógové okno otvorilo.
sub platba
dim document,dispatcher as object
dokument=stardesktop.currentcomponent
ovladanie.vyberlb ("List1","A11")
list=dokument.sheets(0)
bunka=list.GetCellByPosition(1,1)'B2
iban=trim(bunka.string) 'pozícia záznamu v databáze
document = ThisComponent.CurrentController.Frame
dispatcher = createUnoService("com.sun.star.frame.DispatchHelper")
Dim args1(2) as new com.sun.star.beans.PropertyValue
args1(0).Name = "Payload"
args1(0).Value = iban
args1(1).Name = "Border"
args1(1).Value = 1
args1(2).Name = "ErrorCorrection"
args1(2).Value = 2
rem ----------------------------------------------------------------------
dispatcher.executeDispatch(document, ".uno:InsertQrCode", "", 0, args1())
end sub
Poprípade ak už niekto má aj štruktúru pre QR platby bol by som veľmi vďačný.
Ďakujem
Editoval miromg (4. 10. 2024 10:46:53)
LibreOffice 7.6.2.1 , na SUSE Leap 15.4