Re : Inserer des images Jpeg dans excel en conservant son nom
bonjour maval
voici deux procédures à installer dans un module.
utilisation tu sélectionnes les cellules contenant les noms de tes pays et tu lance inserimg
la procédure efface efface toutes! les images de la feuille (attention si autres images ou graph....)
corrige aussi le nom trinité et tobago le nom dans la cellule et le nom de l'image sont différent.
Sub insertimg()
For Each i In Selection
chemin = ThisWorkbook.Path & "/"
Set img = i.Parent.Pictures.Insert(chemin & i & ".jpg")
With i.Offset(0, 5)
img.Left = .Left + .Width
img.Top = .Top
img.Name = i
End With
Next
End Sub
Sub efface()
For Each i In ActiveSheet.Shapes
i.Delete
Next
End Sub