Hallo,
mein Ziel ist es einen QR-Code in einem Writer-Dokument per Makro zu generieren.
Im nachfolgenden Code wird ein leeres Quadrat gezeichnet, in dem später der QR-Code erscheinen soll.
In diesem Code habe ich auch die Eigenschaften für den QR-Code beispielhaft festgelegt.
Beides funktioniert soweit.
Es ist mir jedoch noch nicht gelungen, den QR-Code auf Basis der Eigenschaften zu generieren und zur Anzeige im Quadrat zu bringen.
REM Quelle: https://wiki.openoffice.org/wiki/DE/Makro_Basic_Tutorial
Sub squareRectQR
Dim aPoint as new com.sun.star.awt.Point
Dim aSize as new com.sun.star.awt.Size
'mri thisComponent
aPoint.x = 1000
aPoint.y = 1000
aSize.Width = 2000
aSize.Height = 2000
oRectangleShape = thisComponent.createInstance("com.sun.star.drawing.RectangleShape")
oRectangleShape.Size = aSize
oRectangleShape.Position = aPoint
'------------------------------------
REM Quelle: https://api.libreoffice.org/docs/idl/ref/structcom_1_1sun_1_1star_1_1drawing_1_1QRCode.html
Dim aQR As New com.sun.star.drawing.QRCode
' mri aQR
With aQR
.Payload="Ananas" ' String
.Border=2 ' 1-4 long
.ErrorCorrection=1 ' 1-4 long
End With
' ???
' generieren eines QR-Codes und die Übergabe an das Shape???
' ???
'------------------------------------
' mri oRectangleShape
thisComponent.getDrawPages.getByIndex(0).add(oRectangleShape)
End Sub
Wie funktioniert das generieren und zeichnen des QR-Codes per Basic?