Besoin d'insérer des visuels dans votre fichier Excel à partir d'url ? La macro qui suit vous permettra d'exécuter rapidement cette opération.
La macro VBA pour insérer une liste de visuels dans Excel
Sub ImageUrl()
Dim Img, ImgFormat As Shape, target As Range
Set ImgRange = ActiveSheet.Range("A1:A3") 'plage contenant les urls
For Each Img In ImgRange
Image = Img
ActiveSheet.Pictures.Insert(Image).Select
Set ImgFormat = Selection.ShapeRange.Item(1)
With ImgFormat
.LockAspectRatio = msoTrue
.Width = 150
.Height = 150
.Cut
End With
Cells(Img.Row, Img.Column + 1).PasteSpecial
Next
End Sub
où :
"A1:A3" correspond à la plage contenant les urls des image
.Width = 150 correspond à la largeur de l'image
.Height = 150 correspond à la hauteur de l'image
Comment exécuter la macro ?
- Copier la macro dans Visual Basic
- Remplacer la plage
- Remplacer la valeur de la largeur .Width =
- Remplacer la valeur de la hauteur .Height =
- Exécuter la macro
Exemple de résultats avec la macro
| A | B | C | |
|---|---|---|---|
| 1 | https://www.docexcel.com/img/1.jpg |  | |
| 2 | https://www.docexcel.com/img/2.jpg |  | |
| 3 | https://www.docexcel.com/img/3.jpg |  | |
| 4 | |||
| 5 |