Este fórum está sendo desativado

[RodrigoGalvao]

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:

Código: Selecionar todos

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

Eu sei que pra salvar eu posso usar

Código: Selecionar todos

Pasta = "C:\Users\tyiou\Desktop\QRCODE\" & codetext & ".jpg"
SavePicture [i]ImagemGeradaPeloURL[/i], Pasta

[Jimmy]

Rodrigo,

Pra mim também não funcionou mas pode ser que seja por eu ter o Office 64bits, que não possui uma série de bibliotecas que o 32bits tem. Quanto a isso não posso te ajudar.

Quanto ao código de geração do QR, me responda: quando você executa, consegue fazer o QR code sair na célula que está a function, ou sai na célula ativa?

Pra mim ele saia sempre na célula ativa. Tem como alterar a macro para o QR sair na célula onde está a function (ou outra à escolha), e também para poder controlar o tamanho que ele seja gerado.

Se isso te interessa, me avise.

Se esta mensagem colabora para a solução do problema, peço que dê um Like, clicando no botão com o "positivo" existente acima e a direita de cada mensagem.

Jimmy San Juan