Como substituir texto por imagens correspondentes no Excel?

No trabalho prático, muitas vezes queremos exibir automaticamente imagens correspondentes no Excel com base no texto de uma célula específica (por exemplo, exibir imagens de produtos com base nos nomes dos produtos ou mostrar ícones correspondentes com base nos status). Como o próprio Excel não possui um recurso embutido de "texto para imagem", algumas técnicas precisam ser usadas para alcançar esse objetivo. Abaixo, este artigo detalhará duas soluções principais e seus métodos de otimização.

Substituir texto por imagens correspondentes usando 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 maneira fácil e direta de inserirmos as imagens relativas com base na string de texto no Excel, mas o seguinte código VBA pode ajudá-lo a substituir o texto pela imagem correspondente.

1. Pressione "Alt + F11" para exibir a janela "Microsoft Visual Basic for Applications".

2. Na janela, clique em "Inserir" > "Módulo" para mostrar uma nova janela de módulo, depois 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, pressione a tecla F5 para executar este código e selecione o intervalo de dados onde deseja inserir as imagens correspondentes na caixa de diálogo que aparece, veja a captura de tela:

4. E então clique no botão OK, todas as imagens correspondentes substituirão o texto original, veja a captura de tela:

Substituir texto por imagens correspondentes com Kutools para Excel

Se você não está familiarizado ou não quer usar código VBA, pode experimentar o Kutools para Excel. Ele oferece uma solução poderosa e eficiente que permite substituir facilmente o texto por imagens correspondentes em poucos cliques. Com o Kutools, você pode combinar texto específico com imagens pré-configuradas diretamente, sem a necessidade de escrever nenhum código. Além disso, você pode ajustar o tamanho das imagens conforme suas necessidades, proporcionando mais flexibilidade em como elas se encaixam na sua planilha do Excel.

Após instalar o Kutools para Excel, faça o seguinte:

1. Clique em "Kutools Plus" > "Importar & Exportar" > "Correspondência de Importação de Imagens", veja a captura de tela:

2. Na caixa de diálogo "Correspondência de Importação de Imagens", defina as opções assim:

• Na caixa de texto "Intervalo de Correspondência", clique para selecionar o intervalo de células que deseja combinar com as imagens;
• Em seguida, clique no botão "Adicionar" para selecionar os arquivos de imagem que deseja importar;
• Especifique o tamanho da imagem que deseja inserir no menu suspenso Tamanho de Importação (Aqui, você pode escolher "corresponder ao tamanho da imagem", "corresponder ao tamanho da célula" ou "especificar o tamanho da imagem" conforme necessário);
• Selecione a ordem de importação para suas imagens;
• Finalmente, clique no botão "Importar".
  

3. E então, escolha uma célula para localizar suas imagens relativas na caixa de diálogo "Correspondência de Importação de Imagens" que apareceu (você também pode selecionar a célula original do texto), veja a captura de tela:

4. E então clique no botão OK, todas as imagens que correspondem ao texto foram inseridas na planilha, veja a captura de tela:

No Excel, usar código VBA ou a ferramenta Kutools para Excel para substituir texto por imagens correspondentes pode melhorar significativamente a eficiência no trabalho e a visualização de dados. Seja escrevendo scripts VBA ou usando o plugin Kutools, ambos os métodos ajudam os usuários a alcançar rapidamente a substituição de texto por imagem, atendendo a diferentes necessidades de trabalho. Escolher o método certo pode tornar o processamento de dados mais eficiente e intuitivo, melhorando assim a qualidade geral do trabalho. Se você estiver interessado em explorar mais dicas e truques do Excel, nosso site oferece milhares de tutoriais para ajudá-lo a dominar o Excel.