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
