Vídeo recomendado
https://youtu.be/diWPPPhW-9E

Gerar QR Code Excel

Dúvidas gerais sobre Excel
Ruy2021
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Dom Abr 25, 2021 9:35 pm

Gerar QR Code Excel

Mensagem por Ruy2021 »

Boa noite.

Gostaria de alterar a função abaixo para executar através de um botão, é possível?

A planilha está em anexo, obrigado pela ajuda.

Function QrCode(codetext As String)

'DESABILITA ATUALIZAÇÃO DE TELA
Application.ScreenUpdating = False


Dim URL As String, MyCell As Range

Set MyCell = Application.Caller

'SINTAXE E PARÂMETROS DA URL:
'
' chs= <width>x<height>: define o tamanho da imagem, largura x altura _
' | (ideal que seja de no mínimo 100x100 pixels)
' |
' | cht=qr: especifica o tipo QR code
' | |
' URL base (fixa) | | chl=<data>: dado, texto que será codificado
' _________________|________________ ____|____ __|__ ______|_______
' | || || | | |
URL = "https://chart.googleapis.com/chart?chs= ... ht=qr&chl=" & codetext
On Error Resume Next
'Apaga a imagem anterior, se houver
ActiveSheet.Pictures("QR_" & MyCell.Address(False, False)).Delete
On Error GoTo 0
ActiveSheet.Pictures.Insert(URL).Select
With Selection.ShapeRange(1)
.PictureFormat.CropLeft = 12
.PictureFormat.CropRight = 12
.PictureFormat.CropTop = 12
.PictureFormat.CropBottom = 12
.Name = "QR_" & MyCell.Address(False, False)
.Left = MyCell.Left - 40
.Top = MyCell.Top - 30
End With
QrCode = ""
End Function
Anexos
QrCode_Excel.rar
(20.9 KiB) Baixado 360 vezes


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


kewillanco
Acabou de chegar
Acabou de chegar
Mensagens: 2
Registrado em: Seg Mai 03, 2021 10:10 am

Re: Gerar QR Code Excel

Mensagem por kewillanco »

Amigo

Cria uma forma em INSERIR, após criar personalize, clique com o botão direito do mouse e vai em ATRIBUIR MACRO... Após fazer isso selecione essa macro. Toda vez que clicar na forma a macro vai ser executada virando assim um botão.

Espero ter ajudado.

Att


Ruy2021
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Dom Abr 25, 2021 9:35 pm

Re: Gerar QR Code Excel

Mensagem por Ruy2021 »

Boa tarde kewillanco,

Desculpe mas não entendi, consegue por favor usar a planilha que eu anexei como exemplo?

Att.
Anexos
QrCode_Excel.rar
(20.9 KiB) Baixado 227 vezes


Avatar do usuário
Mikel Silveira Fraga
Jedi
Jedi
Mensagens: 1173
Registrado em: Sex Mai 27, 2011 3:27 pm
Localização: Governador Valadares - MG
Contato:

Re: Gerar QR Code Excel

Mensagem por Mikel Silveira Fraga »

Ruy, bom dia e seja bem vindo ao fórum.

No link abaixo, você encontrará as instruções relacionadas a sugestão dada pelo colega Kewillanco.
No link, vai encontrar um tutorial bem explicado de como atribuir essa macro.

Espero ter ajudado. Abraços e excelente semana.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Ruy2021
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Dom Abr 25, 2021 9:35 pm

Re: Gerar QR Code Excel

Mensagem por Ruy2021 »

Bom dia Mikel.

Obrigado pelo retorno.

Mas na verdade esse código é uma função, já tentei adaptar para utilizar em um botão, porém da um erro que não consegui tratar. Esta função ativa quando vc digita em uma célula =QrCode(), porém eu gostaria de adapta-la para funcionar via botão.

Att.


Avatar do usuário
Reinaldo
Jedi
Jedi
Mensagens: 1537
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Gerar QR Code Excel

Mensagem por Reinaldo »

Na falta de detalhes
experimente:
QrCode_Excel.zip
(23.53 KiB) Baixado 292 vezes
Obs.: Como utiliza uma API Google, no momento liberada, tenha em mente que a qualquer momento essa API poderá passar a ser "disponibilizada" via pagamento.


Ruy2021
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Dom Abr 25, 2021 9:35 pm

Re: Gerar QR Code Excel

Mensagem por Ruy2021 »

Boa Noite Reinaldo.

Obrigado pelo retorno, é isso mesmo que eu buscava, muito obrigado. Sem querer abusar, seria possível adaptar o código para que não seja gerado o QR Code quando a célula estivesse vazia?

Att.
Anexos
QrCode_Excel.zip
(23.53 KiB) Baixado 237 vezes


Ruy2021
Acabou de chegar
Acabou de chegar
Mensagens: 5
Registrado em: Dom Abr 25, 2021 9:35 pm

Re: Gerar QR Code Excel

Mensagem por Ruy2021 »

Reinaldo escreveu: Ter Mai 04, 2021 11:30 am Na falta de detalhes
experimente:
QrCode_Excel.zip

Obs.: Como utiliza uma API Google, no momento liberada, tenha em mente que a qualquer momento essa API poderá passar a ser "disponibilizada" via pagamento.
Boa Noite Reinaldo.

Obrigado pelo retorno, é isso mesmo que eu buscava, muito obrigado. Sem querer abusar, seria possível adaptar o código para que não seja gerado o QR Code quando a célula estivesse vazia?

Att.


Disable adblock

This site is supported by ads and donations.
If you see this text you are blocking our ads.
Please consider a Donation to support the site.


Responder