根據需要生成,您可以使用谷歌圖表API生成QR碼代碼的體積。
只是一個「Microsoft Web瀏覽器」 ActiveX組件和下面的代碼添加到您的形式:
Dim Size As Integer
Dim Text As String
Dim URL As String
Size = 200
Text = "This is my test"
' Better to actually use a URL encoding function like those described here:
' http://stackoverflow.com/questions/218181/how-can-i-url-encode-a-string-in-excel-vba
Text = Replace(Text, " ", "%20")
URL = "http://chart.apis.google.com/chart?chs=" & Size & "x" & Size & "&cht=qr&chld=H|0&chl=" & Text
WebBrowser.Navigate (URL)
當然你可以改變大小,並根據您的需要選擇文本。文本也可以直接來自你的表格,因此你的數據。
我會建議你在使用前檢查谷歌條款和服務。