QR Codes in Excel mit einer eigenen Funktion erstellen
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
Hinweis: Die verwendete google API wurde verworfen. Es wird aktuell auf die aktiv verwaltete Google Charts API verwiesen. Eventuell gibt es darüber die Möglichkeit einen QR Code zu generieren.
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
