- 17 Dez 2019 às 19:57
#51215
Ola, Estou tentando salvar uma imagem no meu computador que é gerada por uma URL do google. Essa url pega o valor de uma celula qualquer da planilha e transforma em QRCode. Eu consegui anexar a imagem na planilha mas eu quero salva-la e nao aprensenta-la na planilha.
Segue o Codigo Abaixo:
Segue o Codigo Abaixo:
Código: Selecionar todos
Eu sei que pra salvar eu posso usar
Function QrCode(codetext As String)
Dim URL As String, MyCell As Range
Set MyCell = Application.Caller
URL = "https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=" & codetext
On Error Resume Next
ActiveSheet.Pictures("QR_" & MyCell.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL)
QrCode = ""
End Function
Código: Selecionar todos
Pasta = "C:\Users\tyiou\Desktop\QRCODE\" & codetext & ".jpg"
SavePicture [i]ImagemGeradaPeloURL[/i], Pasta