Barcode makro jak dopasować
: ndz paź 31, 2021 6:00 pm
Witam,
proszę o pomoc w dopasowaniu makra ze strony https://github.com/LibreOffice/barcode. Jak edytować makro by pobierało kod ze wskazanej lokalizacji, a wygenerowany do innej lokalizacji?
Dziękuję i pozdrawiam
proszę o pomoc w dopasowaniu makra ze strony https://github.com/LibreOffice/barcode. Jak edytować makro by pobierało kod ze wskazanej lokalizacji, a wygenerowany do innej lokalizacji?
Kod: Zaznacz cały
Sub InsertBarcode
Dim oJob as Object
oJob = createUnoService("org.libreoffice.Barcode")
Dim args(8) as new com.sun.star.beans.NamedValue
args(0).Name = "Action"
args(0).Value = "InsertBarcode"
args(1).Name = "BarcodeType"
args(1).Value = "CODE128"
args(2).Name = "BarcodeValue"
args(2).Value = "123456789"
args(3).Name = "BarcodeAddChecksum"
args(3).Value = True
args(4).Name = "WidthScale"
args(4).Value = "100"
args(5).Name = "HeightScale"
args(5).Value = "100"
args(6).Name = "PositionX"
args(6).Value = "1000"
args(7).Name = "PositionY"
args(7).Value = "1000"
args(8).Name = "TargetComponent"
args(8).Value = ThisComponent
oJob.execute(args)
End Sub