Excel vba to use QRMaker. Ocx controls generated qr code saved. BMP graphic size is 150 * 150 pixels-CodePudding

The following code to use on the Sheet1 QRmaker1 control to generate a qr code, and saved as a BMP file
Sub qrCodeTest ()
Dim QRstr As String
Const fgfStr As String="& amp; ^ & amp;"
FgfStr QRstr="A9508" + + "tung" + fgfStr + "chaoyang district on the 14th floor 2 4 jiuxianqiao neighborhood unit 39, 40" + fgfStr + "100016"
With the Application. The Workbooks (" appTestQrmaker1. XLS "). The Worksheets (" Sheet1 ")
. QRmaker1. ModelNo=2
. QRmaker1. CellPitch=5
. QRmaker1. CellUnit=203
. QRmaker1. QuietZone=0

. QRmaker1. AutoRedraw=True
. QRmaker1. InputData=https://bbs.csdn.net/topics/QRstr
. QRmaker1. Refresh
. QRmaker1. CreateQrMetaFile 1 Application. ActiveWorkbook. Path & amp; "" & amp; "A9508. BMP", 2
End With
End Sub

In order to save the qr code graphic file A9508. BMP size is 150 * 150 pixels, how to adjust the above code?