Como substituir texto por imagens correspondentes no Excel?
Digamos que tenho uma lista de nomes de produtos em uma planilha e há uma pasta que contém as imagens correspondentes dos nomes de produtos no disco do computador. Agora, preciso localizar e substituir os nomes dos produtos por suas imagens relativas no Excel sem inseri-los um por um, conforme as capturas de tela a seguir mostradas. Existe alguma solução boa e rápida para lidar com esse trabalho no Excel?
Substitua o texto pelas imagens correspondentes com o código VBA
Substitua o texto pelas imagens correspondentes com o Kutools para Excel
Substitua o texto pelas imagens correspondentes com o código VBA
Normalmente, não existe 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. Press Alt + F11 para exibir o Microsoft Visual Basic para Aplicações janela.
2. Na janela, clique em inserção > Módulo para mostrar uma nova janela de módulo, copie e cole o seguinte código VBA no módulo janela.
Código VBA: substitua o texto pelas imagens correspondentes
Sub InsertPicture()
'Upadateby Extendoffice
Dim xPath As String
Dim xLastRow As Long
Dim Rng As Range
Dim WorkRng As Range
On Error Resume Next
xTitleId = "KutoolsforExcel"
Set WorkRng = Application.Selection
Set WorkRng = Application.InputBox("Range", xTitleId, WorkRng.Address, Type:=8)
Application.ScreenUpdating = False
xPath = "C:\Users\dt\Desktop\Fruits\"
If Right(xPath, 1) <> "\" Then xPath = xPath & "\"
xLastRow = Cells(Rows.Count, "A").End(xlUp).Row
For Each Rng In WorkRng
If Rng.Value <> "" Then
If Dir(xPath & Rng.Value & ".jpg") <> "" Then
ActiveSheet.Pictures.Insert(xPath & Rng.Value & ".jpg").Select
With Selection.ShapeRange
.LockAspectRatio = msoFalse
.Left = Rng.Left
.Top = Rng.Top
.Width = Rng.Width
.Height = Rng.Height
End With
Rng.ClearContents
Else
Rng.Value = "N/A"
End If
End If
Next
Application.ScreenUpdating = True
End Sub
3. Então aperte F5 para executar este código e selecionar o intervalo de dados em que deseja inserir as imagens correspondentes na caixa de diálogo exibida, consulte a captura de tela:
4. E, em seguida, clique em OK botão, todas as imagens correspondentes com o mesmo tamanho das células serão substituídas pelo texto original, veja as capturas de tela:
Observações:
1. No código acima, você precisa alterar o caminho da pasta das imagens de acordo com sua necessidade, xPath = "C: \ Usuários \ dt \ Desktop \ Frutas \".
2. Se não houver imagens correspondentes para corresponder ao texto, o erro N / A será exibido.
Substitua o texto pelas imagens correspondentes com o Kutools para Excel
Como o código acima é difícil de dominar, apresentarei aqui uma ferramenta fácil e poderosa - Kutools for Excel, Com o seu Corresponder imagens de importação recurso, você pode inserir de forma rápida e conveniente as imagens para coincidir com a lista de texto.
Kutools for Excel : com mais de 300 suplementos úteis do Excel, grátis para testar sem limitação em 30 dias. |
Depois de instalar Kutools for Excel, por favor, faça o seguinte:
1. Clique Kutools Plus > Importar e Exportar > Corresponder imagens de importação, veja a captura de tela:
2. No Corresponder imagens de importação caixa de diálogo, clique em botão para selecionar o intervalo que deseja combinar com as imagens, consulte a imagem:
3. Então no Corresponder imagens de importação diálogo, clique em Adicionar > Envie o or Pasta para encontrar as imagens que deseja inserir, consulte a captura de tela:
4. Após inserir as imagens correspondentes, clique em Tamanho de importação botão, no seguinte Importar tamanho da imagem diálogo, especifique uma opção para o tamanho da sua imagem. Veja a imagem:
5. Então clique OK > importaçãoe, em seguida, escolha uma célula para localizar suas imagens relativas do pop-out Corresponder imagens de importação caixa de diálogo (você também pode selecionar a célula original do texto), veja a imagem:
6. E, em seguida, clique em OK botão, todas as imagens que correspondem ao texto foram inseridas na planilha, veja a imagem:
Observações:
1. Se não houver imagens correspondentes ao texto, a célula não inserirá nada.
2. Se você deseja inserir imagens horizontalmente, você pode marcar Preencher horizontalmente célula após célula no Ordem de importação seção.
Baixe e teste grátis Kutools para Excel agora!
Demonstração: substitua o texto pelas imagens correspondentes com o Kutools para Excel
Melhores ferramentas de produtividade de escritório
Aprimore suas habilidades de Excel com o Kutools para Excel e experimente uma eficiência como nunca antes. Kutools para Excel oferece mais de 300 recursos avançados para aumentar a produtividade e economizar tempo. Clique aqui para obter o recurso que você mais precisa...
Office Tab traz interface com guias para o Office e torna seu trabalho muito mais fácil
- Habilite a edição e leitura com guias em Word, Excel, PowerPoint, Publisher, Access, Visio e Project.
- Abra e crie vários documentos em novas guias da mesma janela, em vez de em novas janelas.
- Aumenta sua produtividade em 50% e reduz centenas de cliques do mouse para você todos os dias!