以下代碼使用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像素，該如何調整以上代碼？
轉載請註明出處，本文鏈接：https://www.uj5u.com/caozuo/140181.html
上一篇：重置了win10，注冊表的東西都沒了，現在還有windows.old檔案，能否根據windows.old恢復注冊串列，或者將已安裝的軟體重新注冊
下一篇：access 代碼生成器忘記密碼