MS Excel

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ší »

Jeza.m(11.7.2017 15:32)#036845

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: zip

36845_qr3.zip (16kB, staženo 327x)

citovat

Ondrej-H(7.5.2018 14:10)#040306

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

Jeza.m(9.5.2018 9:35)#040315

Ú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

Ondrej-H(10.5.2018 8:56)#040328

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..

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

Jeza.m(10.5.2018 9:18)#040329

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

Ondrej-H(10.5.2018 9:46)#040330

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

elninoslov(10.5.2018 11:37)#040332

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

Ondrej-H(10.5.2018 12:47)#040337

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

elninoslov(10.5.2018 12:57)#040338

Š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

Jeza.m(10.5.2018 13:02)#040339

Po té úpravě místo activecell na Range by se měl QR objevit vždy v G18.

Příloha.

M@

Příloha: zip

40339_qr4.zip (16kB, staženo 332x)

citovat

Strana: 1 2 další »

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

Uživatelské menu

Menu

Formulář Faktura

Formulář Faktura IV

Helios iNuvio

On-line nástroje