Como converter URLs de imagens em imagens reais no Excel?
Se você tiver uma lista de endereços de URL de imagem na coluna A, e agora, deseja baixar as imagens correspondentes dos URLs e exibi-los na coluna B adjacente, conforme a captura de tela à esquerda exibida. No Excel, como você poderia extrair as imagens reais dos URLs das imagens de forma rápida e fácil?
Converta os URLs das imagens em imagens reais com o código VBA
Converta os URLs das imagens em imagens reais com o Kutools para Excel
Converta os URLs das imagens em imagens reais com o código VBA
O seguinte código VBA pode ajudá-lo a extrair rapidamente as imagens reais dos endereços de URL da imagem, faça o seguinte:
1. Segure o ALT + F11 para abrir a janela Microsoft Visual Basic for Applications.
2. Clique inserção > Móduloe cole o código a seguir na janela do módulo.
Código VBA: converta os URLs das imagens em imagens reais:
Sub URLPictureInsert()
Dim Pshp As Shape
Dim xRg As Range
Dim xCol As Long
On Error Resume Next
Application.ScreenUpdating = False
Set Rng = ActiveSheet.Range("A2:A5")
For Each cell In Rng
filenam = cell
ActiveSheet.Pictures.Insert(filenam).Select
Set Pshp = Selection.ShapeRange.Item(1)
If Pshp Is Nothing Then GoTo lab
xCol = cell.Column + 1
Set xRg = Cells(cell.Row, xCol)
With Pshp
.LockAspectRatio = msoFalse
If .Width > xRg.Width Then .Width = xRg.Width * 2 / 3
If .Height > xRg.Height Then .Height = xRg.Height * 2 / 3
.Top = xRg.Top + (xRg.Height - .Height) / 2
.Left = xRg.Left + (xRg.Width - .Width) / 2
End With
lab:
Set Pshp = Nothing
Range("A2").Select
Next
Application.ScreenUpdating = True
End Sub
Observações:
- 1. No código acima, A2: A5 é o intervalo de células que contém os endereços de URL para os quais deseja extrair as imagens, você deve alterar as referências das células conforme sua necessidade.
- 2. Com este código, você não pode especificar o tamanho das imagens extraídas de acordo com sua necessidade.
- 3. O código acima só pode extrair as imagens reais para as células, além da coluna URL, você não pode especificar a célula para a saída das imagens.
- 4. Você deve ter algum conhecimento básico do código, se algum caractere estiver faltando ou incorreto, o código não será executado com sucesso.
3. Então aperte F5 para executar este código, e todas as imagens correspondentes foram extraídas dos URLs da imagem para a coluna adjacente de uma vez, e as imagens serão colocadas no centro de suas células específicas, veja a captura de tela:
Converta os URLs das imagens em imagens reais com o Kutools para Excel
Se você não estiver familiarizado com o código VBA ou quiser remediar a limitação do código acima, Kutools for Excel's Insira o caminho do formulário de imagens (URL) recurso pode ajudá-lo a inserir rapidamente as imagens cprresponding com base nos endereços de URL ou caminho específico em seu computador, conforme a imagem abaixo mostrada. Clique para baixar o Kutools para Excel!
Depois de instalar Kutools for Excel, por favor, faça o seguinte:
1. Clique Kutools > inserção > Insira o caminho do formulário de imagens (URL), na caixa de diálogo exibida, defina as seguintes operações, consulte as capturas de tela:
2. Então clique Ok botão, e as imagens serão extraídas dos URLs, veja a captura de tela:
Clique para baixar e testar gratuitamente o Kutools for Excel agora!
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!