< návrat zpět

MS Excel


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

Zaslal/a 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ěď >

#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 186x)
citovat
#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 595x)
citovat
#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
#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
#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 #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
#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
#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
#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

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

ADO DBF/FoxPro

Barth • 11.8. 17:50

Automaticke vlozenie riadku aj v druhom Zosite

danis • 11.8. 17:28

Macro pro leteckou dopravu

Jiří497 • 11.8. 17:15

Macro pro leteckou dopravu

Nosal • 11.8. 13:00

Macro pro leteckou dopravu

Jiří497 • 11.8. 11:45

Macro pro leteckou dopravu

Nosal • 11.8. 8:14

Macro pro leteckou dopravu

Jiří497 • 10.8. 21:35