excel vba中为使用QRMaker.ocx控件生成的二维码保存的.bmp图形的大小为150*150像素,该如何实现?
以下代码使用Sheet1上的QRmaker1控件生成一个二维码,并保存为bmp文件
Sub qrCodeTest()
Dim QRstr As String
Const fgfStr As String = "&^&"
QRstr = "A9508" + fgfStr + "董建华" + fgfStr + "朝阳区酒仙桥4街坊14楼2单元39、40" + fgfStr + "100016"
With Application.Workbooks("appTestQrmaker1.xls").Worksheets("Sheet1")
.QRmaker1.ModelNo = 2
.QRmaker1.CellPitch = 5
.QRmaker1.CellUnit = 203
.QRmaker1.QuietZone = 0
.QRmaker1.AutoRedraw = True
.QRmaker1.InputData = QRstr
.QRmaker1.Refresh
.QRmaker1.CreateQrMetaFile 1, Application.ActiveWorkbook.Path & "\" & "A9508.bmp", 2
End With
End Sub
为使保存二维码图形的文件A9508.bmp的大小为150*150像素,该如何调整以上代码?