'strCB= informacion que contendra al codigo
'strRutaCB=la ruta donde quiero almacenar mi archivo con el codigo .bmp
GoogleQR strCB, strRutaCB
aqui esta la declaracion de una funcion para descargar el archivo de google
Option Explicit
Private Declare Function URLDownloadToFile Lib "urlmon" Alias "URLDownloadToFileA" (ByVal pCaller As Long, _
ByVal szURL As String, _
ByVal szFileName As String, _
ByVal dwReserved As Long, _
ByVal lpfnCB As Long) As Long
'funcion que se encargaa del CB
Private Function GoogleQR(pDato As String, pImagen As String) As Long
Dim sURL As String
Dim lcDimensiones As String
lcDimensiones = "300x300"
pDato = Replace(pDato, "&", "%26")
pDato = Replace(pDato, "=", "%3D")
sURL = "https://chart.googleapis.com/chart?cht=qr&chs=" & _
lcDimensiones & "&chld=Q&chl=" & Replace(pDato, "&", "%26")
GoogleQR = URLDownloadToFile(0, sURL, pImagen, 0, 0)
End Function