Gerar Qrcode no Excel

O vídeo ensina como fazer Qrcode no Excel. Uma forma fácil, acessível e gratuita, onde você poderá criar e personalizar diversos Qrcode para automatizar e controlar produtos, armazenar informações e divulgar. O código que gera a função no Excel pode ser obtido através do link abaixo:

Abaixo segue o código:

Function QrCode(codetext As String)
Dim URL As String, MyCell As Range

Set MyCell = Application.Caller
URL = "https://chart.googleapis.com/chart?ch..." & codetext
On Error Resume Next
ActiveSheet.Pictures("QR_" & MyCell.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.PictureFormat.CropLeft = 15
.PictureFormat.CropRight = 15
.PictureFormat.CropTop = 15
.PictureFormat.CropBottom = 15
.Name = "QR_" & MyCell.Address(False, False)
.Left = MyCell.Left + 2
.Top = MyCell.Top + 2
End With
QrCode = ""
End Function