Insérer une image dans cellule Excel

Vous pouvez ajouter l'image dans un commentaire.

Droit-cliquez sur la cellule > Insérer un Commentaire > cliquez à droite sur ombragée (zone grise) sur l'extérieur de la zone de commentaire > Format de Commentaire > les Couleurs et les Lignes > Fill > Couleur > les Effets de Remplissage > Image > (accédez à l'image) > Cliquez sur OK

Image apparaît sur survolez.

Microsoft Office 365 (2019) introduit de nouvelles choses que l'on appelle les commentaires et renommé l'ancien des commentaires comme "notes". Par conséquent, dans les étapes ci-dessus ne New Note au lieu de Insert Comment. Toutes les autres étapes restent les mêmes et la fonctionnalité existe toujours.

Il y a aussi un 20 $de produit pour Windows - Excel Image Adjoint...

il suffit d'aller à google docs et collez ce qu'une formule, où URL est un lien vers votre img

      =image("URL", 1)

par la suite, à partir de google docs options, téléchargement excel et vous aurez votre image sur la cellule
MODIFIER
Pour les commentaires, vous n'avez pas besoin de garder l'URL de l'image en vie aussi longtemps, juste assez longtemps pour le excel à télécharger. Ensuite, il restera ancrée sur le fichier.

Alors que ma recommandation est de prendre avantage de l'automatisation disponibles à partir de Doality.com spécifiquement Picture Manager pour Excel

Le code vba suivant devrait répondre à vos critères. Bonne Chance!

Ajouter un Bouton de Contrôle de votre Classeur Excel, puis double-cliquez sur le bouton afin d'obtenir le Code VBA -->

Sub Button1_Click()
    Dim filePathCell As Range
    Dim imageLocationCell As Range
    Dim filePath As String

    Set filePathCell = Application.InputBox(Prompt:= _
        "Please select the cell that contains the reference path to your image file", _
            Title:="Specify File Path", Type:=8)

     Set imageLocationCell = Application.InputBox(Prompt:= _
        "Please select the cell where you would like your image to be inserted.", _
            Title:="Image Cell", Type:=8)

    If filePathCell Is Nothing Then
       MsgBox ("Please make a selection for file path")
       Exit Sub
    Else
      If filePathCell.Cells.Count > 1 Then
        MsgBox ("Please select only a single cell that contains the file location")
        Exit Sub
      Else
        filePath = Cells(filePathCell.Row, filePathCell.Column).Value
      End If
    End If

    If imageLocationCell Is Nothing Then
       MsgBox ("Please make a selection for image location")
       Exit Sub
    Else
      If imageLocationCell.Cells.Count > 1 Then
        MsgBox ("Please select only a single cell where you want the image to be populated")
        Exit Sub
      Else
        InsertPic filePath, imageLocationCell
        Exit Sub
      End If
    End If
End Sub

Puis de créer votre Méthode d'Insertion comme suit:

Private Sub InsertPic(filePath As String, ByVal insertCell As Range)
    Dim xlShapes As Shapes
    Dim xlPic As Shape
    Dim xlWorksheet As Worksheet

    If IsEmpty(filePath) Or Len(Dir(filePath)) = 0 Then
        MsgBox ("File Path invalid")
        Exit Sub
    End If

    Set xlWorksheet = ActiveSheet

    Set xlPic = xlWorksheet.Shapes.AddPicture(filePath, msoFalse, msoCTrue, insertCell.top, insertCell.left, insertCell.width, insertCell.height)
    xlPic.LockAspectRatio = msoCTrue
End Sub