Como substituir texto por imagens correspondentes no Excel?
Na prática, é comum querermos exibir automaticamente imagens no Excel com base no texto de uma determinada célula — por exemplo, mostrar imagens de produtos conforme os respetivos nomes ou apresentar ícones específicos de acordo com determinados estados. Como o Excel não inclui nativamente uma funcionalidade de «texto para imagem», é necessário recorrer a soluções alternativas para alcançar este efeito. A seguir, este artigo apresenta duas abordagens principais e os respetivos métodos de otimização.
Substituir texto por imagens correspondentes utilizando código VBA
Substituir texto por imagens correspondentes com Kutools para Excel
Substituir texto por imagens correspondentes com código VBA
Normalmente, não há uma forma simples e direta de inserir imagens relativas com base numa cadeia de texto no Excel, mas o código VBA seguinte pode ajudá-lo a substituir o texto pela respetiva imagem.
1. Prima «Alt + F11» para abrir a janela «Microsoft Visual Basic for Applications».
2. Na janela, clique em «Inserir» > «Módulo» para abrir uma nova janela de módulo e, em seguida, copie e cole o seguinte código VBA na janela do módulo.
Código VBA: substituir texto por imagens correspondentes
Sub ReplaceTextWithPictures()
'Updateby Extendoffice
Dim ws As Worksheet
Dim selectedRange As Range
Dim cell As Range
Dim pic As Picture
Dim picPath As String
Dim foundPic As Boolean
Dim fileExtensions As Variant
Dim ext As Variant
Const imageFolderPath As String = "C:\Users\skyyang\Desktop\Animal\"
fileExtensions = Array("png", "jpg", "jpeg", "bmp", "gif")
On Error Resume Next
Set selectedRange = Application.InputBox("Select the data range", "KutoolsforExcel", Type:=8)
On Error GoTo 0
If selectedRange Is Nothing Then
MsgBox "No valid cell range selected, operation cancelled.", vbExclamation
Exit Sub
End If
Set ws = selectedRange.Worksheet
For Each cell In selectedRange
If Not IsEmpty(cell.Value) Then
foundPic = False
For Each ext In fileExtensions
picPath = imageFolderPath & cell.Value & "." & ext
If Dir(picPath) <> "" Then
foundPic = True
Exit For
End If
Next ext
If foundPic Then
For Each pic In ws.Pictures
If pic.TopLeftCell.Address = cell.Address Then pic.Delete
Next pic
Set pic = ws.Pictures.Insert(picPath)
With pic
.Top = cell.Top
.Left = cell.Left
.Width = cell.Width
.Height = cell.Height
End With
End If
End If
Next cell
End Sub
3. Em seguida, prima a tecla F5 para executar este código e selecione o intervalo de dados onde pretende inserir as imagens correspondentes na caixa de diálogo que surge; veja a captura de ecrã:
4. Depois, clique no botão OK e todas as imagens correspondentes substituirão o texto original — veja a captura de ecrã:
Substituir texto por imagens correspondentes com Kutools para Excel
Se não estiver familiarizado com código VBA ou preferir não o utilizar, experimente o Kutools para Excel. Esta ferramenta oferece uma solução poderosa e eficiente que lhe permite substituir texto por imagens correspondentes com apenas alguns cliques. Com o Kutools, associa diretamente textos específicos a imagens predefinidas — sem precisar de escrever uma única linha de código. Além disso, pode ajustar o tamanho das imagens conforme necessário, garantindo maior flexibilidade na forma como se integram na sua folha do Excel.
Após instalar o Kutools para Excel, proceda da seguinte forma:
1. Clique em «KUTOOLS PLUS» > «Importar/Exportar» > «Correspondência de Importação de Imagens»; veja a captura de ecrã:
2. Na caixa de diálogo «Correspondência ao Importar Imagens», configure as opções da seguinte forma:
- Na caixa de texto «Intervalo de Correspondência», clique para selecionar o intervalo de células que pretende associar às imagens;
- Em seguida, clique no botão «Adicionar» para selecionar os ficheiros de imagem que pretende importar;
- Especifique o tamanho das imagens que pretende inserir a partir do menu pendente Tamanho de Importação (aqui pode escolher «ajustar à Tamanho da Imagem», «ajustar ao tamanho da célula» ou «especificar a Tamanho da Imagem», conforme necessário);
- Selecione a Ordem de Importação para as suas imagens;
- Por fim, clique no botão «Importar».
3. Em seguida, escolha uma célula para posicionar as suas imagens relativas na caixa de diálogo «Correspondência de Importar Imagens» que surge (pode também selecionar a célula original do texto); veja a captura de ecrã:
4. Depois, clique no botão OK e todas as imagens correspondentes ao texto serão inseridas na folha de cálculo — veja a captura de ecrã:
- Se não houver imagens correspondentes ao texto, nenhuma imagem será inserida na célula.
- Se pretender inserir imagens horizontalmente, ative a opção «Preencher por Linha, depois por Coluna» na secção «Ordem de Importação».
No Excel, substituir texto por imagens correspondentes — quer através de código VBA, quer com a ferramenta
As Melhores Ferramentas de Produtividade para o Office
Potencie as suas competências no Excel com Kutools para Excel e experimente uma eficiência como nunca antes.Kutools para Excel Oferece mais de 300 funcionalidades avançadas para impulsionar a produtividade e Economizar Tempo.Clique aqui para obter a funcionalidade de que mais precisa...
Office Tab Traz uma interface com separadores para o Office e torna o seu trabalho muito mais fácil
- Ative a edição e leitura com separadores no Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novos separadores da mesma janela, em vez de em janelas separadas.
- Aumente a sua produtividade em 50 % e elimine centenas de cliques do rato todos os dias!
Todos os suplementos Kutools — num único instalador.
Kutools for Office reúne suplementos para Excel, Word, Outlook e PowerPoint, além do Office Tab Pro, sendo a solução ideal para equipas que trabalham em várias aplicações do Office.
- Pacote tudo-em-um— suplementos para Excel, Word, Outlook e PowerPoint + Office Tab Pro
- Um instalador, uma licença— configuração em minutos (pronto para MSI)
- Funciona melhor em conjunto— produtividade simplificada em todas as aplicações do Office
- Teste gratuito de 30 dias com todas as funcionalidades— sem registo, sem cartão de crédito
- Melhor relação qualidade-preço— poupe face à compra individual dos suplementos