Function Insert_QR(codetext As String) Dim URL As String, MyCell As Range Set MyCell = Application.Caller URL = "https://chart.googleapis.com/chart?chs=125x125&cht=qr&chl=" & codetext On Error Resume Next ActiveSheet.Pictures("My_QR_" & MyCell.Address(False, False)).Delete 'delete if there is prevoius one On Error GoTo 0 ActiveSheet.Pictures.Insert(URL).Select With Selection.ShapeRange(1) .PictureFormat.CropLeft = 10 .PictureFormat.CropRight = 10 .PictureFormat.CropTop = 10 .PictureFormat.CropBottom = 10 .Name = "My_QR_" & MyCell.Address(False, False) .Left = MyCell.Left + 25 .Top = MyCell.Top + 5 End With Insert_QR = "" ' or some text to be displayed behind code End Function
Monday, July 27, 2020
Create QR-Code with VBA
Function to add QR-Code as image in your file.
Subscribe to:
Post Comments (Atom)
No comments:
Post a Comment
Your feedback is always appreciated. I will try to reply to your queries as soon as time allows.Please don't spam,spam comments will be deleted upon reviews.