Comment convertir des URL d'images en images réelles dans Excel?

Si vous avez une liste d'adresses URL d'image dans la colonne A, et maintenant, vous souhaitez télécharger les images correspondantes à partir des URL et les afficher dans la colonne B adjacente comme capture d'écran de gauche. Dans Excel, comment pouvez-vous extraire rapidement et facilement les images réelles des URL d'images?

Convertissez les URL d'image en images réelles avec le code VBA

Convertissez les URL des images en images réelles avec Kutools for Excel

Convertissez les URL d'image en images réelles avec le code VBA

Le code VBA suivant peut vous aider à extraire rapidement les images réelles des adresses URL des images, procédez comme suit:

1. Maintenez le ALT + F11 touches pour ouvrir la fenêtre Microsoft Visual Basic pour Applications.

2Cliquez sur insérer > Moduleet collez le code suivant dans la fenêtre Module.

Code VBA: Convertissez les URL des images en images réelles:

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

3. Puis appuyez F5 clé pour exécuter ce code, et toutes les images correspondantes ont été extraites des URL d'image vers la colonne adjacente à la fois, et les images seront placées au centre de vos cellules spécifiques, voir capture d'écran:

Convertissez les URL des images en images réelles avec Kutools for Excel

Si vous ne connaissez pas le code VBA ou souhaitez remédier à la limitation du code ci-dessus, Kutools for Excel's Insérer le chemin du formulaire d'images (URL) La fonction peut vous aider à insérer rapidement les images correspondantes en fonction des adresses URL ou du chemin spécifique de votre ordinateur, comme illustré ci-dessous. Cliquez pour télécharger Kutools for Excel!

Après l'installation de Kutools for Excel, veuillez faire comme ceci:

1Cliquez sur Kutools > insérer > Insérer le chemin du formulaire d'images (URL), dans la boîte de dialogue qui apparaît, veuillez définir les opérations suivantes, voir les captures d'écran:

2. Puis clique Ok bouton, et les images seront extraites des URL, voir capture d'écran:

Cliquez pour télécharger et essayer gratuitement Kutools for Excel maintenant !