Anzeige
Anzeige
HERBERS
Excel-Forum (Archiv)
20+ Jahre Excel-Kompetenz: Von Anwendern, für Anwender
Vorheriger Thread
Vorheriger Thread
Rückwärts Blättern
1904to1908
1904to1908
Aktuelles Verzeichnis
Verzeichnis Übersicht
Verzeichnis Übersicht
Übersicht Verzeichnisse
Nächster Thread
Nächster Thread
Vorwärts blättern
Inhaltsverzeichnis

QR Code aus Sheet in Userform laden

Forumthread: QR Code aus Sheet in Userform laden

QR Code aus Sheet in Userform laden
30.10.2022 14:50:00
Rocco
Hallo,
ich versuche in der Tabelle2 über eine Userform den QRCode in das Image-Bedienfeld zu laden.
In der Tabelle2 wird der QRCode in die Aktive Zelle geladen, dieser soll anschließend unter einem Dateipfad gespeichert werden als .jpf .png oder welches Format auch immer und danach in der Userform2 ins Image1 geladen werden.
Das erstellen des QRCodes funktioniert einwandfrei, ich komme allerdings nicht weiter beim speichern des Bildes und das er es in die Userform lädt, vielleicht kann jemand helfen, hier die Datei:
https://www.herber.de/bbs/user/155932.xlsm
Anzeige

2
Beiträge zum Forumthread
Beiträge zu diesem Forumthread

Betreff
Datum
Anwender
Anzeige
AW: QR Code aus Sheet in Userform laden
30.10.2022 15:32:46
Nepumuk
Hallo Rocco,
teste mal:

Private Sub QRCode(QRCode_Wert As String)
'Variablen deklarieren
Dim sURL As String
Dim strFile As String
Dim objPicture As Picture, objChartObject As ChartObject
'URL definieren
sURL = "https://chart.googleapis.com/chart?cht=qr&&chs=100x100&&chl=" & QRCode_Wert
strFile = Environ$("temp") & "\" & "" & Mid(sURL, InStrRev(sURL, "/") + 1)
'Alten QR-Code löschen, falls vorhanden
On Error Resume Next
ActiveSheet.Pictures("QRCode_" & ActiveCell.Address).Delete
On Error GoTo 0
'QR-Code einfügen
Set objPicture = ActiveSheet.Pictures.Insert(sURL)
With objPicture
.Name = "QRCode_" & ActiveCell.Address
.Left = ActiveCell.Left + 5
.Top = ActiveCell.Top + 5
.Width = .Width * 1.5
.Height = .Height * 1.5
.CopyPicture
End With
strFile = Environ$("temp") & "\Bild.jpg"
Set objChartObject = ActiveSheet.ChartObjects.Add(Left:=0, Top:=0, Width:=objPicture.Width, Height:=objPicture.Height)
With objChartObject
.Activate
With .Chart
.Paste
.Export Filename:=strFile, FilterName:="JPG"
End With
.Delete
End With
Set Image1.Picture = LoadPicture(Filename:=strFile)
Kill strFile
End Sub
Gruß
Nepumuk
Anzeige
AW: QR Code aus Sheet in Userform laden
30.10.2022 15:37:48
Rocco
Das hat wunderbar funktioniert, vielen Dank dir.
VG
Rocco
;

Forumthreads zu verwandten Themen

Automatisch Ordner aus Zelleneintrag erstellen
fejoho

Hallo,
Ich brauche Hilfe bei einem Problem, was denke ich für jemand, der sich nur etwas besser auskennt als ich, überhaupt keins ist.
ich benötige einen quelltext für den visualbasic-script-editor der:
---------------------------------------------------------------------
1. Aut...
23.07.2009 17:16:55
Thread-ID: 1090881
3 Beiträge
Automatisch Ordner aus Zelleneintrag erstellen
fejoho

Hallo,
Ich brauche Hilfe bei einem Problem, was denke ich für jemand, der sich nur etwas besser auskennt als ich, überhaupt keins ist.
ich benötige einen quelltext für den visualbasic-script-editor der:
---------------------------------------------------------------------
1. Aut...
23.07.2009 17:06:21
Thread-ID: 1090882
2 Beiträge
QR-Code einfügen
Peter

Hallo,
weiss jemand, wie ich aus Daten, die ich in einer Excel Tabelle habe, einen QR-Code generieren kann?
Gibt es dafür Excel Funktionen?
Wenn ja, welche?
Danke im voraus
Peter
12.03.2014 09:40:45
Thread-ID: 1353184
2 Beiträge
Auswahlliste für einen Zellenwert erstellen
Torsten

Hallo Freunde, Ich habe einmal in einem Formular folgendes gesehen, dass mir nicht gelingen will:
Eine Zelle kann mehrere vorgegebene Werte enthalten, z.B. "Ja", "Nein" und "Vielleicht". Ich möchte nun, dass wenn die eine bestimmte Zelle angeklickt wird, die Liste mit "Ja", "Nein", "Vielleic...
23.07.2002 21:57:20
Thread-ID: 139676
3 Beiträge
Formel aus Zelle erstellen
Daniel Bauer
Ich möchte den Wert aus Zelle A1 einer Tabelle, deren Namen ich in einer Zelle habe.
Also zB befinde ich mich in Tabelle "Tabelle2". In Tabelle2!A3 steht "Tabelle1".
Die Formel in Tabelle2!A2 soll also den Wert von Tabelle1!A1 erhalten.
Vielen Dank schonmal!
03.04.2015 18:13:06
Thread-ID: 1418938
3 Beiträge
Befehlsschaltflächen + Codeautomatisch erstellen
VBAnfänger

Hallo liebe Excel-Gemeinde,
ich möchte mich zu Anfang kurz vorstellen. Ich bin Matthias, 29 Jahre und mache öfter mal etwas mit Excel und VBA. Nun habe ich mir selbst eine Mammutaufgabe gestellt, bei der ich hier gern Ünterstützung hätte, um selbst zu lernen, alles richtig zumachen und vern...
31.07.2015 20:22:46
Thread-ID: 1439748
2 Beiträge
Tabellenblatt aus Zelle erstellen
Lars

Hallo liebe Profis,
ich habe ein Excel Tabellenblatt (Beste Idee) in dem ich gute Ideen sammle.
Nun soll in dieser Datei, sobald eine dieser Ideen den Status (Spalte F) "in Arbeit" bekommt, ein neues Tabellenblatt aus Tabellenblatt "Vorlage" mit dem Namen aus Spalte A erstellt werden un...
01.03.2017 14:59:04
Thread-ID: 1544891
2 Beiträge
Tabellenblatt aus Zelle erstellen
Lars

Hallo liebe Profis,
ich habe ein Excel Tabellenblatt (Beste Idee) in dem ich gute Ideen sammle.
Nun soll in dieser Datei, sobald eine dieser Ideen den Status (Spalte F) "in Arbeit" bekommt, ein neues Tabellenblatt aus Tabellenblatt "Vorlage" mit dem Namen aus Spalte A erstellt werden un...
01.03.2017 15:29:08
Thread-ID: 1544903
3 Beiträge
Text aus verschiedenen Zelleninhalten erstellen
Marcel

Hallo liebes Herber Forum,
ich brauche mal wieder etwas VBA Unterstützung.
Ich sende aus Excel eine Email, was auch prima funktioniert.
Leider gelingt mir das Einfachste nicht.
Der Text in der Email soll übersichtlich untereinander die Basisinformationen liefern. Leider gelingt...
14.02.2018 18:46:20
Thread-ID: 1608958
6 Beiträge
code automatisch erstellen
Bernd

Hallo,ich habe folgenden code:Sub zum_1_punkt()
Range("A4").Select
ActiveWindow.SmallScroll down:=31
Range("a35").Select
End SubSub zum_2_punkt()
Range("A4").Select
ActiveWindow.SmallScroll down:=62
Range("a66").Select
End Subdiese Sub's muss ich noch schreiben bis Sub 3...
13.12.2002 11:30:26
Thread-ID: 192786
2 Beiträge
VBA, Userform per code Erstellen
Rainer Quaas

Hallo Excel-User,wie kann man per Code eine Userform mit z. B. einer TextBox erstellen?Man kann zwar über den Editor sehr einfach Useformen vorgestalten, aus Dateigrößenminimierung würde ich aber die Erstellung der Userform per Code bevorzugen.2. Frage:
Kann man alle VB-Befehle in VBA für Ex...
08.04.2003 13:52:47
Thread-ID: 242036
12 Beiträge
Anzeige
Bereichsnamen aus Zelle erstellen
sigi
Hallo,
kann mir jemand erklären wie man einen Bereichsnamen aus einer Zelle
einfügen kann!
In Zelle B1 steht der Name z.B. Dateien("C:\Eigene Dateien\Muster\*.*")
Name des Bereiches ist DAT
In Zelle A1 steht INDEX(DAT;ZEILE())
Nun werden die Dateien im Verzeichnis Muster aufgeliste...
10.10.2003 16:57:30
Thread-ID: 322048
2 Beiträge
Anzeige

Beliebteste Forumthreads (12 Monate)

Jetzt das Excel-Portal bewerten: Deine Stimme zählt!
Anzeige
Anzeige
Anzeige