Using QRCodegenBarcode as UDF in excel VBA

[YasserKhalilExcelEgy]

Thank you very much for your efforts.
I have tried to use this function QRCodegenBarcode as UDF in cell B2 but what I got is just numbers and not a barcode.
The code is working well on userform not on worksheet. Any ideas?

[landv]

Image0.PictureData = QRCodegenConvertToData(QRCodegenBarcode("Sample text"), 500, 500)

[YasserKhalilExcelEgy]

Thanks a lot. I am using excel VBA not access. Is it possible to use as UDF (user-defined function) in excel VBA?

[landv]

vbaGenerateQRcode.xls
https://github.com/landv/vba
you can use this libary
Some functions are in Chinese. Please use the translator to translate.

[YasserKhalilExcelEgy]

Thank you very much. I couldn't deal with it as the file has chinese characters and I encountered errors when trying to execute the codes on it. Can you modify your base module to make it available to create the qrcode in cells?

[landv]

I'll delete Chinese and replace it with English tomorrow.
You can generate pictures in batches to the clipboard and paste them into the table by clicking the button.

You can also use the plug-in that comes with Office and click the development tool - Insert - (bottom right corner) other controls - Microsoft Barcode Control.

[YasserKhalilExcelEgy]

Thank you very much. I appreciate a lot your help.

[landv]

Thank you very much. I appreciate a lot your help.

https://youtu.be/8xD8Fn6qsgw
This video uses Microsoft Barcode Control to generate dynamic QR codes.

[wqweto]

Here is some sample code you can place in a module in Excel and call Test_CreateBarCodes

Option Explicit

Private Sub Test_CreateBarCodes()
    InsertBarCode "A18", "H14"
    InsertBarCode "A19", "R14"
End Sub

Private Sub InsertBarCode(sCellSource As String, sCellDestination As String)
    Dim CellSrc     As Excel.Range
    Dim CellDst     As Excel.Range
    Dim TempFile    As String
    
    Set CellSrc = ActiveSheet.Range(sCellSource)
    Set CellDst = ActiveSheet.Range(sCellDestination)
    TempFile = Environ$("TEMP") & "\qrcode.emf"
    SavePicture QRCodegenBarcode(CellSrc.Value), TempFile
    ActiveSheet.Shapes.AddPicture TempFile, msoFalse, msoTrue, CellDst.Left, CellDst.Top, CellDst.Width, CellDst.Height
    Kill TempFile
End Sub

[amjorge1972]

Thanks a lot. Using in MS Access.

[amjorge1972]

When printing, it is taking too long. Almost 10 secs each print page.

[wqweto]

Did you try using Microsoft Barcode Control instead?

[amjorge1972]

No. How ? Where I can find it?

[amjorge1972]

Solved. Thanks!

ActiveX / OCX controls download:
https://download.extendoffice.com/downloads/other/Controls/MSBCODE.zip

Excel instalation:
https://de.extendoffice.com/documents/excel/5404-excel-create-qr-code.html

MS Access use:
https://www.activebarcode.com/howto/access-barcode-object-report

Works fine realtime data linked.