Gerar Qr Code Excel - 3 Maneiras de Gerar QR Code

Como gerar QR Code no Excel de 3 maneiras diferentes com download dos exemplos e vídeo de como fazer passo-a-passo.

O que é Qr Code?

Código de resposta rápida. Esse é o nome completo do QR Code (Quick Response Code). Embora esteja sendo mais notado — e adotado — apenas agora, ele já tem 25 anos: foi criado em 1994 pela Denso-Wave (uma empresa do Grupo Toyota), no Japão.

O QR Code é uma evolução do código de barras — que existe desde 1970 e revolucionou a identificação de produtos. Ele consiste em um gráfico 2D (o código de barras comum usa apenas uma dimensão, a horizontal, enquanto o QR usa a vertical e a horizontal) que pode ser lido pelas câmeras da maioria dos celulares (alguns modelos ainda requerem aplicativos específicos para isso).

Como Gerar o Qr Code no Excel?

Para gerar o Qr Code no Excel elencamos três maneiras:

Suplemento do Excel
Google Sheets
Excel VBA

Neste artigo mostraremos cada uma destas maneiras de forma detalhada, e no vídeo ao topo do artigo você tem a aula completa com estas três formas.

Suplemento do Excel para Gerar Qr Code

O Excel permite que sejam inseridos novos suplementos, que são programas que podem ser anexados ao Excel e que você poderá fazer uso.

Para gerar o Qr code podemos usar um destes suplementos, chamado QR4Office.

Para instalar o suplemento abra o Excel e siga os seguintes passos

1. Clique em Inserir->Obter suplementos

2. Na tela que surge digite em Pesquisa> QR4Office

3. Selecione o suplemento e clique em Instalar e siga o processo de instalação

4. Clique em Inserir->Meus suplementos

5. Clique sobre o suplemento instalado Qr4Office

6. Na tela no canto direito que surge selecione o tipo de informação que está gerando o Qr Code, defina o tamanho, cor de fundo e do Qrcode, ele será gerado automaticamente no Excel.

7. Clique em Insert e o Qr code será inserido automaticamente na célula selecionada do Excel.

Gerar Qr Code no Excel pelo Google Sheets

Outra forma que temos de gerar qr code é pelo google sheets.

Para isso usamos dois recursos do google: a API de geração de QR Codes e a função Image.

API é um serviço online disponibilizado pelas empresas que através de uma chamada de URL realiza o retorno de informações como neste caso o Qr code por exemplo.

A documentação do Qr code está aqui: https://developers.google.com/chart/infographics/docs/qr_codes

Através da qual temos esta página que explica a chamada da API.

Você pode ler a documentação no link acima aonde pode definir vários parâmetros, sendo o principal o tamanho, pode alterar como desejar, o que passamos é 150x150

A chamada que utilizamos da chamada da API Qr Code do Google foi:

https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=https://www.guiadoexcel.com.br/

Veja que se colocar o código acima no seu navegador automaticamente terá o retorno de uma imagem com o qr code.

Assim, usando o Google sheets siga os passos.

Digite na célula a seguinte função:

=image("https://chart.googleapis.com/chart?chs=150x150&cht=qr&chl=https://www.guiadoexcel.com.br/")

A função Image retorna uma imagem à partir de um endereço definido, no caso acima, estamos passando o texto e concatenando com o valor da célula B4 e como resultado temos um Qr Code dinâmico no Google Sheets:

Com isso nós temos então as imagens geradas e pode usá-las como precisar.

Como gerar Qr Code no Excel com VBA

Para gerar o Qr Code diretamente no Excel usando VBA, nós usamos também a mesma chamada da API do Google para criar a imagem conforme vimos no google sheets.

1. Para isso habilite primeiro a guia desenvolvedor conforme neste artigo: Como habilitar a guia desenvolvedor.

2. E após isso pressione ALT+F11 ou na guia Desenvolvedor clique em Visual Basic.

3. Na tela do VBE clique em Inserir->Módulo.

4. Cole o seguinte código no módulo criado:

'Adaptado de: http://www.excelforum.com/excel-general/852057-qr-code-font-or-generator-for-excel.html
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).Select
    
    With Selection.ShapeRange(1)
     .PictureFormat.CropLeft = 15
     .PictureFormat.CropRight = 15
     .PictureFormat.CropTop = 15
     .PictureFormat.CropBottom = 15
     .Name = "QR_" & MyCell.Address(False, False)
     .Left = MyCell.Left + 2
     .Top = MyCell.Top + 2
    End With
    
    QrCode = ""
End Function

5. O código acima é uma função VBA, o seu objetivo é realizar uma consulta na API de Qr Code do google e baixar a imagem.

O método da linha Activesheets.Pictures.Insert é o que consulta estes dados na Web.

Todo este detalhamento é visto no vídeo ao topo do artigo, aonde criamos do zero esta função.

Na célula que desejar digite =QrCode([seut texto]) e pressione Enter.

A função irá baixar a imagem da internet, realizar todos os ajustes de cortar os cantos da imagem e você terá então o Qr code gerado automaticamente no seu Excel.

Pode aplicar esta função para várias células e alterar o tamanho também caso deseje.