Este fórum está sendo desativado

Depois de 9 anos, este fórum será desativado. Mas calma.... estamos migrando para uma comunidade no DISCORD. Junte-se a nós.

ENTRAR PARA DISCORD

Tópicos relacionados a códigos VBA, gravação de macros, etc.
  • Avatar do usuário
#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:
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
#51234
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
long long title how many chars? lets see 123 ok more? yes 60

We have created lots of YouTube videos just so you can achieve [...]

Another post test yes yes yes or no, maybe ni? :-/

The best flat phpBB theme around. Period. Fine craftmanship and [...]

Do you need a super MOD? Well here it is. chew on this

All you need is right here. Content tag, SEO, listing, Pizza and spaghetti [...]

Lasagna on me this time ok? I got plenty of cash

this should be fantastic. but what about links,images, bbcodes etc etc? [...]

Estamos migrando para uma comunidade no Discord