QR-Code per Makro generieren

gefragt 2020-09-04 15:40:23 +0200

Craig22 Gravatar-Bild

updated 2020-09-09 12:35:50 +0200

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?

Bearbeiten Tags ändern Melden schließen vereinen löschen