ATENÇÃO NOVOS USUÁRIOS

Se registrou recentemente? Seu cadastro será avaliado e mendiante aprovação, a conta será ativada e você poderá usufruir do fórum. O tempo de avaliação gira em torno de 24 a 48 horas.

Esqueceu sua senha?

Você pode usar o mecanismo de lembrete neste link: Recuperar senha

Você receberá um link de reativação no email cadastrado.

Não recebeu o email? Lembre-se checar o Lixo Eletrônico.

Gerar QR Code Excel

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

Gerar QR Code Excel

Mensagem por Ruy2021 » Sex Abr 30, 2021 10:30 pm

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 5 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 » Seg Mai 03, 2021 1:13 pm

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: 4
Registrado em: Dom Abr 25, 2021 9:35 pm

Re: Gerar QR Code Excel

Mensagem por Ruy2021 » Seg Mai 03, 2021 1:35 pm

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 5 vezes



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

Re: Gerar QR Code Excel

Mensagem por Mikel Silveira Fraga » Ter Mai 04, 2021 8:33 am

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.


Gostou da dica? Clique no JOIA no topo da mensagem.
Esclareceu suas dúvidas? Acrescente ao título do tópico a expressão: [RESOLVIDO].
Orientações sobre o fórum, acesse aqui.

Mikel Silveira Fraga
E-mail: mikel-sf@hotmail.com | Linked In

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: 4
Registrado em: Dom Abr 25, 2021 9:35 pm

Re: Gerar QR Code Excel

Mensagem por Ruy2021 » Ter Mai 04, 2021 8:50 am

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: 1458
Registrado em: Sex Ago 01, 2014 4:09 pm
Localização: Garça - SP / SCS - SP

Re: Gerar QR Code Excel

Mensagem por Reinaldo » Ter Mai 04, 2021 11:30 am

Na falta de detalhes
experimente:
QrCode_Excel.zip
(23.53 KiB) Baixado 6 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.


Reinaldo
:oops: :D :mrgreen: :geek:

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

Re: Gerar QR Code Excel

Mensagem por Ruy2021 » Dom Mai 09, 2021 9:09 pm

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 2 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.


Responder