Convertir liens d'image vers une image

[noobyyy]

Bonjour,

je possède un tableau avec une colonne contenant des liens vers des images.

J'aimerai créer une macro ou utiliser une fonction existante pour remplacer ces liens par les images pour chaque cellule contenant un lien.

Exemple :

si c4 contient le lien vers le logo de google j'aimerai que la macro la remplace par le logo dans la cellule.

Est-ce faisable ?

Merci de me guider.

 

[noobyyy]

Re : Convertir liens d'image vers une image

J'ai trouvé quelques pistes pour l'image cependant quel est le nom de la fonction pour connaitre le positionnement d'une cellule ?

Merci

 

[job75]

Re : Convertir liens d'image vers une image

Bonjour noobyyy, bienvenue sur XLD,

Il aurait été convenable de joindre votre fichier 🙄

A défaut, télécharger le dossier joint (extraire les 2 fichiers dans le même répertoire).

Cette macro insère les images dans les cellules des liens hypertextes :

Sub InsérerImages()
Dim h As Hyperlink, fich$
For Each h In ActiveSheet.Hyperlinks
  If Right(h.Address, 4) = ".jpg" Then
    fich = ThisWorkbook.Path & "\" & h.Address
    With ActiveSheet.Pictures.Insert(fich)
      .Top = h.Parent.Top
      .Left = h.Parent.Left
      .Height = h.Parent.Height
    End With
    'h.Delete 'facultatif, si l'on veut supprimer le lien
  End If
Next
End Sub

A+

 

[noobyyy]

Re : Convertir liens d'image vers une image

Oh merci je vais pourvoir m'en inspirer !

 

[noobyyy]

Re : Convertir liens d'image vers une image

est-ce que c'est possible de récupérer l'image sur internet et la mettre dans la cellule ?

pour le moment elle se déplace au dessus des autres cellules.

'Récupère image sur le web
Private Sub AjoutImageFeuille(link As String)
    Dim Shp As Shape
    Set Shp = Feuil1.Shapes.AddPicture(link, msoFalse, msoCTrue, 10, 10, 150, 70)
End Sub

Merci

 

[noobyyy]

Re : Convertir liens d'image vers une image

j'ai réussi à intégrer des images, cependant comment supprimer les liens ? Le code ci-dessus supprime les liens mais pas le texte.
J'aimerai vider le texte avant d'y insérer l'image.

J'ai essayé cell.ClearContents mais sans succès
Merci

 

[job75]

Re : Convertir liens d'image vers une image

Avec mon code :

h.Parent.ClearContents