[VBA Excel] QR Code Generator for use with IMAGE function in Excel 365

QRCodeIO.vba

Function QRCodeIO(InText As String, Optional oFormat As String = "png", Optional oMargin As Integer = 1, Optional oSize As Integer = 150, Optional oDark As String = "000000", Optional oLight As String = "ffffff", Optional ECLevel As String = "M", Optional LogoURL As String, Optional oCaption As String)
'QR Code for use with IMAGE function only. (MS 365 only)
'Using API from quickchart.io
Dim sURL As String
Dim Res As String

sURL = "https://quickchart.io/qr?"
Res = "text=" + WorksheetFunction.EncodeURL(InText)
Res = Res + "&format=" + oFormat
Res = Res + "&margin=" + Trim(str(oMargin))
Res = Res + "&size=" + Trim(str(oSize))
Res = Res + "&dark=" + oDark
Res = Res + "&light=" + oLight
Res = Res + "&ecLevel=" + ECLevel
If LogoURL <> "" Then Res = Res + "&centerImageUrl=" + WorksheetFunction.EncodeURL(LogoURL)
If oCaption <> "" Then Res = Res + "&caption=" + WorksheetFunction.EncodeURL(oCaption)

QRCodeIO = sURL + Res

End Function