MS Excel

Téma: QR kód

Zaslal/a parkovec 11.4.2024 22:21

Dobrý večer,
tohle mi fungovalo pro načítání QR kódu a najednou přestalo.
Ukazuje to na chybu v tučně zvýrazněném řádku.

Public Sub QRX()
Dim TEXT As String

With wsPrevod
TEXT = .Range("F28").Value
Application.ScreenUpdating = False

On Error Resume Next
.Shapes("QR_K27").Delete
On Error GoTo 0

If TEXT <> "" Then
With .Pictures.Insert("http://chart.apis.google.com/chart?chs=150x150&cht=qr&chl=" & Replace(TEXT, " ", "%20") & "&chld=M|0&choe=ISO-8859-1/chart.png")
.Name = "QR_K27"
.Left = wsPrevod.Range("K17").Left
.Top = wsPrevod.Range("K17").Top
End With
End If
Application.ScreenUpdating = True
End With
End Sub

Nevěděl by někdo co s tím?

Zaslat odpověď >

elninoslov(12.4.2024 0:42)#056418

Na nete som našiel, že Google túto službu zrušil po mnohých rokoch od oznámenia, že ju zruší.
Jeden týpek poradil zmenu adresy, a je to funkčné. Vyskúšajte.
With .Pictures.Insert("https://api.qrserver.com/v1/create-qr-code/?size=150x150&data=" & Replace(TEXT, " ", "%20"))Link na popis parametrov.citovat

parkovec(15.4.2024 13:53)#056428

No to si tedy Google dovolil dost

Tak to jste mě zachránil, já myslel že je chyba u mě.
Velice děkuji a týpka pozdravujte

citovat

Uživatelské menu

Nejste přihlášen(a)

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.