Vídeo recomendado
https://youtu.be/diWPPPhW-9E
https://youtu.be/diWPPPhW-9E
Gerar QR Code Excel
Gerar QR Code Excel
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
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 381 vezes
-
- Acabou de chegar
- Mensagens: 2
- Registrado em: Seg Mai 03, 2021 10:10 am
Re: Gerar QR Code Excel
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
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
Re: Gerar QR Code Excel
Boa tarde kewillanco,
Desculpe mas não entendi, consegue por favor usar a planilha que eu anexei como exemplo?
Att.
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 245 vezes
- Mikel Silveira Fraga
- Jedi
- Mensagens: 1173
- Registrado em: Sex Mai 27, 2011 3:27 pm
- Localização: Governador Valadares - MG
- Contato:
Re: Gerar QR Code Excel
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.
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.
Re: Gerar QR Code Excel
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.
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.
- Reinaldo
- Jedi
- Mensagens: 1537
- Registrado em: Sex Ago 01, 2014 4:09 pm
- Localização: Garça - SP / SCS - SP
Re: Gerar QR Code Excel
Na falta de detalhes
experimente: 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.
experimente: 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.
Re: Gerar QR Code Excel
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.
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 260 vezes
Re: Gerar QR Code Excel
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.