< návrat zpět

MS Excel

Téma: Obrázek QR platby z API/URL na fakturu v Excelu rss

Zaslal/a davecz 19.10.2016 11:04

Hezký den,
měl bych prosbu. Rád bych na doklady pro zákazníky které tvořím v Excelu dával QR kód pro QR-platbu.

Z údajů uvedených na dokladu se mi vytváří URL pro RESTful API http://qr-platba.cz/pro-vyvojare/restful-api/#generator-czech-image (npř. http://api.paylibo.com/paylibo/generator/czech/image?accountNumber=222885&bankCode=5500&amount=250.00&currency=CZK&vs=333&message=FOND%20HUMANITY%20CCK) na kterém se vygeneruje obrázek QR kódu, který potřebuji vložit na fakturu v Excelu, a potřebuji, aby se tento kód automaticky obnovoval při změně údajů na faktuře.

Předem děkuji za rady jak na to 1

Zaslat odpověď >
davecz(19.10.2016 11:11)#033117
avatar
Upravil jsem jeden "mustr" co jsem našel tady na fóru, který dělá přesně to co potřebuji, ale nedaří se mi funkce převést do nového dokumentu.

Pokud smažu obrázek v "mustru", nebo zkopíruji VBA Project do nového .xlsm souboru, tak jsem nepřišel na to jak vložit obrázek který by se dokázal po změně URL aktualizovat?
Zkopírovaný obrázek z "mustru" na změny nijak neraguje, zřejmě se převede na obyčejný obrázek?

Vazba je tam nějak dělána přes Item(1) v List1.Shapes.Item(1).Fill.UserPicture List1.Range("$A$1"), ale ať na internetu hledám jak hledám netuším jak docílit té vazby pro vytvoření obrázku?

Bude to určitě nějaká hloupost. 7
Děkuji za "nakopnutí".
Příloha: zip33117_qr_code_moje2.zip (31kB, staženo 240x)
citovat
davecz(24.10.2016 12:57)#033173
avatar
Děkuji za pomoc Pokimu,
problém byl v pojmenování položky obrázku. Stačilo dát obrázku název QRkod, a upravit vazbu List1.Shapes.Item("QRkod").Fill.UserPicture List1.Range("$A$1")

Již to dělá přesně co potřebuji.

Pokud by se někomu hodila QR platba třeba na fakturu, přikládám vzor v příloze.
Příloha: zip33173_qr_platba.zip (32kB, staženo 781x)
citovat
Kodl_C(4.12.2016 22:55)#033669
avatar
Dobrý den.
A když bych chtěl mít v souboru několik listů, jak by mělo makro vypadat?
Každý list by měl jiný QR kód.
Děkujicitovat
Kodl_C(8.12.2016 21:26)#033727
avatar
Funguje to s níže uvedeným zápisem.
List1.Shapes.Item("QRkod").Fill.UserPicture List1.Range("$A$1")
List2.Shapes.Item("QRkod").Fill.UserPicture List2.Range("$A$1")
List3.Shapes.Item("QRkod").Fill.UserPicture List3.Range("$A$1")
Problém však je, že s každým novým listem musím doplňovat další řádek do makra.
Dalo by se to nějak zjednodušit?citovat
Anonym(8.12.2016 23:18)#033728
avatar
Na List se dá odkazovat kromě kódového jména
taky Jménem => Sheets("List" & 1),
nebo Indexem => Sheets(1)
a prohnat je v cyklu.citovat
icon AL(8.12.2016 23:25)#033729
avatar
Alebo pouzit cyklus For each .. Next, cez Select Case osetrit listy, ktorych sa to nema tykat. Myslim, ze nasledovat bude otazka, co je to cyklus/ako ho skonstruovat 1citovat
Vlastimil1(17.3.2018 21:18)#039905
avatar
Používám již více jak rok, ale dnes sheet, který ještě minulý měsíc fungoval i všechny ostatní starší již hlásí Chybu: Run-time Error -2147467259 (80004005) Method UserPicture FillFormat failed - konkrétně na řádku
List1.Shapes.Item("QRkod").Fill.UserPicture List1.Range("$A$1")

Žádný update Windows ani Office přitom neproběhl (vše je zakázáno).citovat
davecz(1.6.2022 21:47)#052813
avatar

Vlastimil1 napsal/a:

Používám již více jak rok, ale dnes sheet, který ještě minulý měsíc fungoval i všechny ostatní starší již hlásí Chybu: Run-time Error -2147467259 (80004005) Method UserPicture FillFormat failed - konkrétně na řádku
List1.Shapes.Item("QRkod").Fill.UserPicture List1.Range("$A$1")

Žádný update Windows ani Office přitom neproběhl (vše je zakázáno).


Včera mi to začalo dělat také, a dnes jsem zjistil že problém je v odkazu na api. Je potřeba http://api... nahradit zabezpečeným https://api... A hned zase začne fungovat 10citovat
JR1(5.8.2022 15:05)#053082
avatar
Potvrzuji funkčnost změny na HTTPS a děkuji. Lámal jsem si hlavu, kde je problém, protože používání v Excelu 2010 mi problém nedělalo. Chyba se mi projevovala na druhém stroji s Excel 2021. Vyřeší i problém s ukládáním QR obrázku do souboru.citovat
Pepanek(9.12.2022 8:05)#054099
avatar
Office 2019
Jakmile vložím tento kód do makra

List1.Shapes.Item("QRkod").Fill.UserPicture List1.Range("$A$1")

tak sice načítání QR kódu funguje, ale při uložení souboru se xlsm nechce uložit a píše to chybu. Při znovu načtení souboru to pak napíše: Aplikace Excel dokončila ověření platnosti a opravu na úrovni souboru. Některé části tohoto sešitu byly pravděpodobně opraveny nebo zahozeny.
Opravené záznamy: Kreslení z části /xl/drawings/drawing1.xml (Tvar kresby)

7citovat

Uživatelské menu

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

Menu

Formulář Faktura

Formulář Faktura IV

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

Helios iNuvio

Používáte podnikový systém Helios iNuvio? Potřebujete pomoci se správou nebo vyvinout SQL proceduru? Více informací naleznete na stránce Helios iNuvio.

On-line nástroje