Catégories
Macro VBA Images Macros VBA

Macro pour insérer un visuel à partir d’une url

Partager :

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

ABC
1https://www.docexcel.com/img/1.jpg
2https://www.docexcel.com/img/2.jpg
3https://www.docexcel.com/img/3.jpg
4
5