Inhalt
- QR-Code über eine selbstgeschrieben Funktion als Bild in Excel einfügen
- URL zur Generierung des QR-Codes definieren
- GET-Request an die Google-API senden
- Alte QR-Codes löschen
- Fehlermeldung vermeiden, wenn kein Bild vorhanden ist
- Test der generierten QR-Codes mit dem Smartphone
Code
Function QRCode(QRCode_Wert As String) As String 'Variablen deklarieren Dim sURL As String Dim rngCell As Range 'Zelle auslesen Set rngCell = Application.Caller 'URL definieren sURL = "https://chart.googleapis.com/chart?cht=qr&&chs=100x100&&chl=" & QRCode_Wert 'Alten QR-Code löschen, falls vorhanden On Error Resume Next ActiveSheet.Pictures("QRCode_" & rngCell.Address).Delete On Error GoTo 0 'QR-Code einfügen With ActiveSheet.Pictures.Insert(sURL) .Name = "QRCode_" & rngCell.Address .Left = rngCell.Left + 5 .Top = rngCell.Top + 5 End With 'Bereitgestellt von VBATrainer: www.vbatrainer.de End Function