Instructions pour insérer des liens d'images dans Excel

Instructions pour insérer un lien dans une image existante dans Excel.

Étape 1 :Pour insérer un lien image dans Excel, ouvrez d'abord la page web contenant l'image à insérer. Ensuite, cliquez avec le bouton droit sur l'image et sélectionnez [option].Copier l'adresse de l'image.

Étape 2 :Ouvrez ensuite le fichier Excel où vous souhaitez insérer le lien vers l'image. Faites un clic droit à l'endroit souhaité, puis sélectionnez l'option correspondante dans le menu contextuel.Lien.

Étape 3 :À ce stade, la boîte de dialogue Insérer un lien hypertexte s'affiche. Cliquez sur l'option.Fichier ou page Web existantPassez ensuite à la colonne de menu adjacente et sélectionnez l'élément.Pages consultéesVous devez maintenant coller le lien de l'image copiée dans la section prévue à cet effet.IncorrectAprès avoir saisi, appuyez sur [ bouton/bouton].D'ACCORDPour insérer des liens vers des images.

Étape 4 :Une fois le lien inséré avec succès, déplacez votre souris sur la cellule où le lien a été inséré, et l'URL de l'image apparaîtra.

Pour ouvrir cette image, il suffit de cliquer sur le lien. La page web contenant l'image s'ouvrira rapidement.

Instructions pour insérer des liens d'images dans Excel à l'aide de VBA

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

Allez dans Insertion > 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électionner la feuille et la cellule contenant l'URL de l'image Set ws = ActiveSheet Set rng = ws.Range("A1") ' Remplacer A1 par la cellule contenant le lien de l'image ' Obtenir le chemin de l'image à partir de la cellule imageURL = rng.Value ' Vérifier si la cellule contient une URL valide If imageURL = "" Then MsgBox "La cellule ne contient pas de lien vers l'image !", vbExclamation, "Erreur" Exit Sub End If ' Ajouter l'image à Excel Set pic = ws.Pictures.Insert(imageURL) ' Aligner la taille de l'image avec la cellule With pic .ShapeRange.LockAspectRatio = msoFalse .Left = rng.Left .Top = rng.Top .Width = rng.Width .Height = rng.Height End With ' Libérer la mémoire Set pic = Nothing Set ws = Rien Définir rng = Rien Fin Sous

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

Retournez à la fenêtre Excel, appuyez sur Alt + F8, sélectionnez InsertImageFromURL, puis cliquez 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 les versions ultérieures.

Si vous souhaitez que des images s'affichent automatiquement lorsque vous saisissez un lien, vous pouvez assigner une macro à Worksheet_Change pour qu'elle s'exécute automatiquement.