< návrat zpět

MS Excel


Téma: Generování QR kódů v sheetu rss

Zaslal/a 11.7.2017 14:01

Zdravím vás,
snažím se o generátor QR kódů z informací, které mám v sheetu. Viděla jsem video na youtube (https://www.youtube.com/watch?v=mzRn0XDF9Bg) a snažím se udělat to samé. Přiznám se, už rezignovala takovým způsobem, že jsem zkusila opsat i přesný kód, co je na videu, ale stejně mi to prostě nejede.
Moje pokusy o vlastní kreativitu totálně zhořely.
Nevíte někdo, jak to zprovoznit?
Private Sub CommandButton1_Click()
Dim sh As Shape
Dim ss As StrokeScribe

For i = 1 To 100
ss_top = Application.CentimetersToPoints(1.5)
ss_width = Application.CentimetersToPoints(1.5)
ss_height = Application.CentimetersToPoints(1.5)
Set sh = Me.Shapes.AddOLEObject_
(ClassType = "STROKESCRIBE.StrokeScribeCtrl.1",_
Left:= i*ss_width, Top:= ss_top, Width:= ss_width, Height:= ss_height)
Set ss = sh.OLEFormat.Object.Object
ss.Alphabet = QRCode
ss.QrECL = M
Dim data As String
data = Cells(i, 1)
ss.Text = data
Next i
End Sub

Zaslat odpověď >

Strana:  1 2   další »
#036845
Jeza.m
Tady bych se zeptal jestli došlo ke správné instalaci / registraci daného ocx prvku? U sebe jsem neinstaloval tak nevím, ale je to to první co mě napadá.
Jinak způsobů jak vložit QR je více pomocí online doplňků, otázka jestli je to pro vás použitelné s nutností připojení na internet.

V příloze mám takový pokus, kde pomocí vlastní funkce vkládám obrázek s QR kódem, který negeneruji já, ale nechal jsem to online na googlu.

M@
Příloha: zip36845_qr3.zip (16kB, staženo 322x)
citovat
#040306
avatar

Jeza.m napsal/a:

Tady bych se zeptal jestli došlo ke správné instalaci / registraci daného ocx prvku? U sebe jsem neinstaloval tak nevím, ale je to to první co mě napadá.
Jinak způsobů jak vložit QR je více pomocí online doplňků, otázka jestli je to pro vás použitelné s nutností připojení na internet.

V příloze mám takový pokus, kde pomocí vlastní funkce vkládám obrázek s QR kódem, který negeneruji já, ale nechal jsem to online na googlu.

M@Příloha: 36845_qr3.zip (16kB, staženo 74x)


Dobrý den,

děkuji za přílohu. Hledal jsem něco obdobného.
Mám však otázku - nevidím tam definici okrajů. Je to tím odkazem na web a obrázkem, na který se v kódu odkazuje? Našel jsem (https://github.com/zxing/zxing/wiki/Chart-Server-Parameters) možnosti nastavení okrajů.

Dokážete mi poradit, jak nastavit nulové okraje mezi hranicí QR kódu a hranicí obrázku?

Jsem amatér a ve VBA mám jen ty nejmenší základy (už jsem pár let ze školy, kde jsme jeden semestr měli).

Děkuji za odpověď.citovat
#040315
Jeza.m
Úplně nulové asi nedáme, ale s odkazem na ...
https://developers.google.com/chart/infographics/docs/qr_codes#details
by měl jít nastavit margin.

Takže když do funkce QRX před text
&choe=ISO-8859-1/chart.png
vložíte
&chld=M|0

tak to číslo za | říká jaký má být okraj.
M@citovat
#040328
avatar
Ano, to se mi už povedlo, jak uvádíte (krátce po zveřejnění příspěvku, který nešel smazat).

Mám na srdci ještě další věci.. 5
Potřebuji, aby se mi obrázek vkládal vždy do buňky G18 (18, 7) a ne do aktivní - zkoušel jsem nahradit ActiveCell Range("G18").Select apod., ale vždy se vloží do aktivní buňky. Na každým listu vracím aktivní buňku na A1. Takže když zapnu excel (sešit) znovu, vygeneruje se nový kód a vloží se právě do A1.

Děkuji za komentáře.citovat
#040329
Jeza.m
Už to trochu "przníme", ale budiž :-)
Nahraďte
Selection.Left = ActiveCell.Left
Selection.Top = ActiveCell.Top


za

Selection.Left = Range("G18").Left
Selection.Top = Range("G18").Top

M@citovat
#040330
avatar
To jsem samozřejmě zkoušel, ale když si zkopíruju vzorec kamkoliv jinam (např. C3), tak se QR kód vloží právě do této aktivní buňky..citovat
#040332
elninoslov
Lebo na to idete zle. Zmente deklaráciu funkcie zo stringového parametru na Range:
Public Function QRX(T As Range)
potom TEXT urobte napr. (záleží aké údaje bunka obsahuje, dá sa použiť FORMAT(), alebo nejaké zaokrúhlenie a pod...):
TEXT = CStr(T)
a potom všade slovo ActiveCell nahraďte za T. Teda napr.:
T.Left
V tom prvom príspevku od Jeza.m je to minimálne na 5 miestach.

A potom to funguje tak, že QR vloží tam, aký parameter je vo funkcii.citovat
#040337
avatar
Ano, toto funguje.
Nicméně sbírám data z několik buněk a taky doplňuji text, konkrétně mám vzorec:

=qrx(CONCATENATE(C5&ZNAK(10)&C9&ZNAK(10)&"ČÚ: ";D19&ZNAK(10)&"VS: ";D20&ZNAK(10)&"Částka: ";ZAOKROUHLIT(I38;0);",- Kč"))

Při slučování buněk už to pak nefunguje..:(citovat
#040338
elninoslov
Šmarjá ... Ondrej, dajte sem prílohu. Nieje jasné či chcete aby sa QR zobrazil v bunke v ktorej je vzorec, alebo vzorec je inde, a QR zase inde. Ani som nepobral, či chcete viac riadkov a pre každý vlastný QR, a pod, alebo či je vždy len jeden vzorec s QRX funkciou a jeden jediný QR kód... Normálne sa zaregistrujte, urobte prílohu XLSM, zabalte ju do ZIP, nahrajte. Dostanete odpoveď.citovat
#040339
Jeza.m
Po té úpravě místo activecell na Range by se měl QR objevit vždy v G18.

Příloha.

M@
Příloha: zip40339_qr4.zip (16kB, staženo 321x)
citovat

Strana:  1 2   další »

Uživatelské menu

Nejste přihlášen(a)
avatar\n

Menu

On-line nástroje

Formulář Faktura

Formulář Faktura IV

Oblíbený formulář Faktura byl vylepšen a rozšířen.
Více se dočtete zde.

Aktivní diskuse

odpocet a storno tl.

PavDD • 28.3. 8:53

odpocet a storno tl.

Začátečník • 26.3. 14:39

odpocet a storno tl.

PavDD • 26.3. 10:22

odpocet a storno tl.

elninoslov • 26.3. 7:50

odpocet a storno tl.

PavDD • 26.3. 7:26

odpocet a storno tl.

elninoslov • 25.3. 22:34

odpocet a storno tl.

Začátečník • 25.3. 15:09