I know this is quite an old and well-established post (though the very good existing answer has not been accepted yet), but I would like to share an alternative that I prepared for a similar post in StackOverflow in Portuguese using the free online API from QR Code Generator. You can play around with this section of the code to change the size of the QR With xSheet.Shapes(QRShapeName) The QR shape will get drawn at the location you specified. Just input the worksheet name, cell location, and the QR_value. With this wrapper, you can now simply call to render QRCode by calling this in VBA: Call RenderQRCode("Sheet1", "A13", "QR Value") (Array(xBkgr.Name, xShape.Name)).Group.Name = s If Not (xBkgr Is Nothing) Then xBkgr.Delete Set xRange = Worksheets(workSheetName).Range(rangeName) Sub DrawQRCode(xBC As String, workSheetName As String, rangeName As String, Optional xNam As String)ĭim xPosOldX As Double, xPosOldY As Doubleĭim xSizeOldW As Double, xSizeOldH As Double TextFrame2.VerticalAnchor = msoAnchorMiddle If Not (xSheet.Shapes(QRLabelName) Is Nothing) Then & "$" & Right(cellLocation, Len(cellLocation) - 1) & "#GR" QRShapeName = "BC" & "$" & Left(cellLocation, 1) _ I added wrapper functions to make it a pure VBA function call rather than using it as a formula in a worksheet: Public Sub RenderQRCode(workSheetName As String, cellLocation As String, textValue As String)Ĭall DrawQRCode(s_encoded, workSheetName, cellLocation)
I'm not certain what it does exactly but probably something to do with the For QR_Code, 0=Low Error Correction, 1=Medium Error Correction, 2=Quartile error 0 is the parameter for the particular barcode type.I assume you need to have the font type installed. Other options are 1=EAN8/13/UPCA/UPCE, 2=two of five interleaved, 3=Code39, 50=Data In my case it's cell A2 You can pass "Text" with quotes to do the same. A2 is the cell that you have your string to be encoded.Just giving reference to the worksheet and cell address you have the Leave the CELL("SHEET) and CELL("ADDRESS") as they are since it's.In a worksheet, put in the function like this: =EncodeBarcode(CELL("SHEET"),CELL("ADDRESS"),A2,51,1,0,2) To use it in a worksheet, just copy or import barcody.bas into your VBA in a module. The code isn't completely simple to understand, but many comments have been translated from Czech to English in the version linked above.
#Data matrix barcode generator generator
The VBA module barcode-vba-macro-only (mentioned by Sébastien Ferry in the comments) is a pure VBA 1D/2D code generator created by Jiri Gabriel under MIT License in 2013.
0 kommentar(er)
