Bonjour à tous,
je cherche à importer des images sous excel avec l'adresse de l'image indiquée dans la colonne A.
J'ai trouvé la très bonne macro ci-dessous qui fonctionne.
Néanmoins mes images sont liées à l'url indiquée et la photo n'apparait pas quand je ré-ouvre le fichier sans connexion internet (ce qui est souvent mon cas sans vous raconter toute ma vie )
Je voudrais trouver une solution pour que les images soient directement sauvegardées dans le fichier sans lien nécessaire avec l'url internet.
J'ai pas mal naviguer pour trouver des solutions. J'ai essayé toutes les solutions suivantes mais rien ne marche :
- f12 avec enregistrer les miniatures
- f5 avec sélection puis copier coller des objets images
Je m'arrache les cheveux sur le sujet.
Quelqu'un aurait-il donc une idée ?
1.000 merci d'avance pour votre aide.
Grégoire
Ma macro pour l'import d'image :
Sub InsImg()
Dim URL As Range
For Each URL In Range("A7", Cells(Rows.Count, "A").End(xlUp))
With URL.Parent.Pictures.Insert(URL.Value)
.Left = URL.Offset(0, 0).Left
.Top = URL.Offset(0, 0).Top
URL.EntireRow.RowHeight = .Height
End With
Next
End Sub
je cherche à importer des images sous excel avec l'adresse de l'image indiquée dans la colonne A.
J'ai trouvé la très bonne macro ci-dessous qui fonctionne.
Néanmoins mes images sont liées à l'url indiquée et la photo n'apparait pas quand je ré-ouvre le fichier sans connexion internet (ce qui est souvent mon cas sans vous raconter toute ma vie )
Je voudrais trouver une solution pour que les images soient directement sauvegardées dans le fichier sans lien nécessaire avec l'url internet.
J'ai pas mal naviguer pour trouver des solutions. J'ai essayé toutes les solutions suivantes mais rien ne marche :
- f12 avec enregistrer les miniatures
- f5 avec sélection puis copier coller des objets images
Je m'arrache les cheveux sur le sujet.
Quelqu'un aurait-il donc une idée ?
1.000 merci d'avance pour votre aide.
Grégoire
Ma macro pour l'import d'image :
Sub InsImg()
Dim URL As Range
For Each URL In Range("A7", Cells(Rows.Count, "A").End(xlUp))
With URL.Parent.Pictures.Insert(URL.Value)
.Left = URL.Offset(0, 0).Left
.Top = URL.Offset(0, 0).Top
URL.EntireRow.RowHeight = .Height
End With
Next
End Sub