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
Share on linkedin
Share on xing
Share on email
Share on whatsapp
Share on facebook

Ähnliche themen

VBATrainer Excel VBA Coaching -Outlook Termin
Kai Weissmann

Outlook-Termin

  Inhalt Outlook-Termin erstellen und Zugriff auf alle Termin-Eigenschaften haben Outlook-Bibliothek aktivieren/Verweis setzen (Extras –>

Mehr lesen »
VBATrainer Excel VBA Coaching -PDF erstellen
Kai Weissmann

PDF erstellen

  Inhalt PDF erstellen: Ansprechen des Tabellenblatts und ExportAsFixedFormat Erstellung Dateipfad & Direktbereich Dateipfad und

Mehr lesen »
VBATrainer Excel VBA Coaching -Zeilen Ausblenden
Kai Weissmann

Zeilen Ausblenden

  Inhalt Einfügen Dropdown Menü in Excel Tabellenblatt-Ereignis Change If-Anweisung Intersect-Methode Zeilen ausblenden Einblenden sämtlicher

Mehr lesen »
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
Mein Kurs

Jetzt registrieren