QR-Code per Makro generieren

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?