QR-Code

 

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

Ähnliche themen

VBATrainer Excel VBA Coaching - Dozent Kai Weissmann

Kai Weissmann

VBA Entwickler

Hallo und schön, dass du hier bist! Schau dich gerne in meinen Blog-Posts um. Falls du Fragen zu einem Thema hast, schreib mir gerne einen Kommentar.

Kai Weissmann

Persönliche Empfehlungen
VBATrainer Excel VBA Coaching - Lagerverwaltung

Sichere dir jetzt meine kostenlose Lagerverwaltungs-Anwendung