< návrat zpět
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?
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.
citovatparkovec(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
RSS nejnovější články