QR-codes genereren

[snb]

Wil je QR codes genereren met VBA zonder bemoeienis van externe websites ?


Kijk dan hier.

 

[VenA]

Nice:thumb:

 

[snb]

Thanks :thumb:

 

[OctaFish]

Indrukwekkend stukje huisvlijt . Erg handig ook om met QR te mailen, heb ik gemerkt .

 

[snb]

Ik heb nog een apart bestand toegevoegd, waarmee je de QR code met en in een Userform kunt genereren.

 

[edmoor]

Ziet er goed uit! :thumb:

 

[OctaFish]

Met wat prutsen heb ik de 'generator' om kunnen zetten naar Access. Ook daar werkt het prima

 

[snb]

En je durft je 'pruts'werk hier niet te tonen ?

 

[OctaFish]

Awel zulle, maar ik heb 'm eerst in een produktie db gezet waar ik 'm wel kon gebruiken. Ga hem vanavond (verder) strippen.

 

[snb]

Ik heb inmiddels ook een Worddocument met dezelfde functionaliteit in de website gezet.

 

[HSV]

Knap staaltje code. :thumb:
Verzin het maar.

 

[OctaFish]

Dan rest nog PowerPoint .

 

[snb]

Die staat er nu ook.

 

[E v R]

schön gemacht:thumb::thumb:

 

[tkint]

Beste,

Ik krijg een foutmelding bij het invoeren van een website-adres in A1 bij de subroutine M_QRCode bij de regel .Paste

With Sheet.ChartObjects(1).Chart
      [COLOR="#FF0000"]  .Paste[/COLOR]
        .Export ThisWorkbook.Path & "\QR_" & Replace(Replace(Replace(txt, "/", "_"), ":", ""), "?", "") & ".png"
    End With

 

[E v R]

Foutmelding kreeg ik ook,
Door de grafiek in kolom 42(?) rij 1 even zichtbaar te maken deed ie t pasten wel (via code zichtbaar maken)

 

[snb]

Nadere vraag.
Welke versie heb je ?
De laatste, die nu op de website staat ?

Kun je de afbeelding wel elders plakken met crl-V ?

Zo niet. kun je dan vertellen om welke URL het gaat ?

Tenslotte: welke Excel-versie gebruik je ? (ik gebruik Excel 2010).

 

[samabert]

snb,

Zeer knap gedaan en bedankt om dit te delen! :thumb:
Ik merk enkele probleempjes op, misschien een bepaalde instelling?

_VBA_QRcode.xlsb
De QR code is na het aanmaken zichtbaar en kan gebruikt worden via plakken in een andere applicatie.
Bij het sluiten wordt er een bestandsnaam aangemaakt in dezelfde directory als waar het bestand is opgeslagen, maar er wordt geen PNG bestand opgeslagen.

_VBA_QRcode_UF.xlsb
De QR code is na het aanmaken in de Userform niet zichtbaar, deze blijft blank. Doch als je vb. in Word de QR code gaat plakken komt de QR code tevoorschijn.
Ook hier als in het vorig bestand wordt er een bestandsnaam aangemaakt, echter wordt hier ook geen GIF bestand opgeslagen.

In het Powerpoint en Word bestand werkt alles juist en worden er GIF bestandjes opgeslagen die je naderhand kan gebruiken.
Ik krijg ook geen enkele foutmelding.
Windows 10 en Office 2016.

M.v.g
Marc

 

[snb]

Dank voor jullie feedback. :thumb:


Er zaten blijkbaar al teveel afbeeldingen in het chartobject.
Die heb ik verwijderd.
De code is gewijzigd, zodat het chartobject nooit meer dan 1 afbeelding bevat.
Dat komt de omvang van het bestand ook ten goede.

Een nieuwe versie van __VBA_QRcode.xlsb heb ik op de website geplaatst.
De versie met het Userform is ook vernieuwd.

@Samabert de .png bestanden worden zichtbaar als je in Ecel het filter * (All files) gebruikt.

 

[E v R]

Ik krijg nog steeds de zelfde foutmelding, welke op te lossen is door eerst de grafiek zichtbaar te maken. (daarna pas het change event aan te roepen, vervolgens loopt het feilloos) (Office 365ProPlus)


Zo geen problemen, lijkt een bugje

If .Shapes.Count > 0 Then .Shapes(1).Delete
        .Parent.Visible = True
        .Parent.Activate
        .Paste