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 SubNotes:
- 1. Dans le code ci-dessus, A2: A5 est la plage de cellules qui contient les adresses URL que vous souhaitez extraire les images, vous devez modifier les références de cellule à votre besoin.
- 2. Avec ce code, vous ne pouvez pas spécifier la taille des images extraites selon vos besoins.
- 3. Le code ci-dessus ne peut extraire que les images réelles dans les cellules en plus de votre colonne URL, vous ne pouvez pas spécifier de cellule pour générer les images.
- 4. Vous devez avoir une connaissance de base du code, si un caractère est manquant ou incorrect, le code ne sera pas exécuté avec succès.
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 !
Meilleurs outils de productivité bureautique
Améliorez vos compétences Excel avec Kutools for Excel et faites l'expérience d'une efficacité comme jamais auparavant. Kutools for Excel offre plus de 300 fonctionnalités avancées pour augmenter la productivité et gagner du temps. Cliquez ici pour obtenir la fonctionnalité dont vous avez le plus besoin...
Office Tab apporte une interface à onglets à Office et facilite grandement votre travail
- Activer l'édition et la lecture par onglets dans Word, Excel, PowerPoint, Publisher, Access, Visio et Project.
- Ouvrez et créez plusieurs documents dans de nouveaux onglets de la même fenêtre, plutôt que dans de nouvelles fenêtres.
- Augmente votre productivité de 50% et réduit des centaines de clics de souris chaque jour!
