Catégories
Macro Images Macros

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

La macro

Sub InsertPicFromUrl()
Dim cell, picformat As Shape, target As Range

Set PicRange = ActiveSheet.Range(« A1:A3 ») ‘ range with URLs
For Each cell In PicRange
pic = cell
ActiveSheet.Pictures.Insert(pic).Select

Set picformat = Selection.ShapeRange.Item(1)
With picformat
.LockAspectRatio = msoTrue
.Width = 144
.Height = 105
.Cut
End With
Cells(cell.Row, cell.Column + 1).PasteSpecial
Next

End Sub

où :
« A1:A3 » correspond à la plage contenant les urls de chaque image
.Width = 144 correspond à la largeur de l’image
.Height = 105 correspond à la hauteur de l’image