Instructions sur la façon d'insérer des liens d'image dans Excel

Instructions sur la façon d'insérer un lien dans une image existante dans Excel

Étape 1 :Pour insérer un lien d'image dans Excel, ouvrez d'abord le site web contenant l'image à insérer. Faites ensuite un clic droit sur l'image et sélectionnezCopier l'adresse de l'image.

Étape 2 :Ensuite, ouvrez le fichier Excel où vous souhaitez insérer le lien de l'image. Faites un clic droit à l'endroit où vous souhaitez insérer le lien. Lorsque la barre de défilement apparaît, sélectionnez l'élément.Lien.

Étape 3 :La boîte de dialogue « Insérer un lien hypertexte » apparaît. Cliquez sur l'élément.Fichier ou page Web existant. Ensuite, allez dans la colonne du menu latéral et cliquez sur l'élémentPages parcouruesVous devez maintenant coller le lien de l’image copiée dans la section.Adresse. Après avoir entré, appuyez surD'ACCORDpour procéder à l'insertion du lien de l'image.

Étape 4 :Après avoir inséré le lien avec succès, déplacez la souris vers la cellule où le lien a été inséré et le chemin de l'image apparaîtra.

Pour ouvrir cette image, faites un clic gauche sur le lien. Le site web contenant cette image s'ouvrira rapidement.

Instructions sur la façon d'insérer des liens d'image dans Excel à l'aide de VBA

Appuyez sur Alt + F11 pour ouvrir l’éditeur Visual Basic pour Applications (VBA).

Allez dans Insérer > Sélectionner un module.

Saisissez le code VBA suivant dans le nouveau module :

Sub InsertImageFromURL() Dim ws As Worksheet Dim imageURL As String Dim pic As Object Dim rng As Range ' Sélectionnez la feuille et la cellule contenant l'URL de l'image Set ws = ActiveSheet Set rng = ws.Range("A1") ' Remplacez A1 par la cellule contenant le lien de l'image ' Obtenez le lien de l'image à partir de la cellule imageURL = rng.Value ' Vérifiez si la cellule a une URL valide If imageURL = "" Then MsgBox "La cellule ne contient pas de lien d'image !", vbExclamation, "Erreur" Exit Sub End If ' Ajoutez une image à Excel Set pic = ws.Pictures.Insert(imageURL) ' Alignez la taille de l'image en fonction de la cellule With pic .ShapeRange.LockAspectRatio = msoFalse .Left = rng.Left .Top = rng.Top .Width = rng.Width .Height = rng.Height Terminer par « Libérer la mémoire Set pic = Rien Set ws = Rien Set rng = Rien Fin de l'abonnement

Placez le lien de l'image dans la cellule A1 (ou une autre cellule, mais vous devez changer rng = ws.Range("A1") dans le code).

De retour dans la fenêtre Excel, appuyez sur Alt + F8, sélectionnez InsérerImageÀPartirD’URL, puis appuyez sur Exécuter.

L'image sera automatiquement téléchargée et affichée dans la cellule A1.

Ce code VBA fonctionne sur Excel 2016 et supérieur.

Si vous souhaitez que l'image s'affiche automatiquement lorsque vous entrez un lien, vous pouvez attribuer une macro à Worksheet_Change pour qu'elle s'exécute automatiquement.