Insérer une image dans une cellule Excel

Question

Je cherche à générer un rapport avec des images, mais je n'arrive pas à mettre les images dans une seule cellule. Je peux les faire "flotter" autour de ma feuille de calcul, mais je dois les mettre dans une cellule. Comment puis-je faire cela ?

Answer 1

Vous pouvez ajouter l'image dans un commentaire.

Clic droit sur la cellule > Insérer un commentaire > clic droit sur la zone ombrée (grise) à l'extérieur de la boîte de commentaire > Formater le commentaire > Couleurs et lignes > Remplissage > Couleur > Effets de remplissage > Image > (Parcourir l'image) > Cliquer sur OK

L'image apparaîtra au survol.

Microsoft Office 365 (2019) a introduit de nouvelles choses appelées commentaires et a renommé les anciens commentaires en "notes". Par conséquent, dans les étapes ci-dessus, faire Nouvelle note au lieu de Insérer un commentaire. Toutes les autres étapes restent les mêmes et la fonctionnalité existe toujours.

---

Il existe également un produit à 20 $ pour Windows - Excel Image Assistant...

Answer 2

Il y a une façon plus rapide (https://www.youtube.com/watch?v=TSjEMLBAYVc):

1. Insérer une image (Ctrl+V) dans Excel.
2. Vérifier que "Outils Image -> Aligner -> Ajuster à la grille" est cochée.
3. Redimensionner l'image pour qu'elle s'adapte à la cellule (ou au nombre de cellules).
4. Cliquez avec le bouton droit de la souris sur l'image et cochez "Taille et propriétés... -> Propriétés -> Bouger et redimensionner avec les cellules".

Answer 3

Il suffit d'aller sur Google Docs et de coller ceci en tant que formule, où l'URL est un lien vers votre image

      =image("URL", 1)

ensuite, depuis les options de Google Docs, téléchargez pour Excel et vous aurez votre image dans la cellule MODIFIER Selon les commentaires, vous n'avez pas besoin de conserver l'URL de l'image en vie aussi longtemps, juste assez longtemps pour que Excel la télécharge. Ensuite, elle restera incorporée dans le fichier.

Answer 4

Maintenant, nous pouvons ajouter une image à Excel directement et facilement. Il suffit de suivre ces instructions :

1. Allez à l'onglet Insertion.
2. Cliquez sur l'option Images (elle est dans le groupe Illustrations).
3. Dans la boîte de dialogue 'Insérer une image', localisez les images que vous souhaitez insérer dans une cellule d'Excel.
4. Cliquez sur le bouton Insérer.
5. Redimensionnez l'image pour qu'elle s'adapte parfaitement à la cellule.
6. Placez l'image dans la cellule. Une manière sympa de le faire est de d'abord appuyer sur la touche ALT puis de déplacer l'image avec la souris. Elle s'alignera et s'ajustera automatiquement avec la bordure de la cellule dès qu'elle s'en approchera.

---

Si vous avez plusieurs images, vous pouvez les sélectionner et les insérer toutes en une seule fois (comme indiqué à l'étape 4).

Vous pouvez également redimensionner les images en les sélectionnant et en faisant glisser les bords. Dans le cas des logos ou des images de produits, vous voudrez peut-être conserver le rapport hauteur/largeur de l'image. Pour conserver le rapport hauteur/largeur, utilisez les coins d'une image pour la redimensionner.

---

Lorsque vous placez une image dans une cellule en suivant les étapes ci-dessus, elle ne restera pas collée à la cellule si vous la redimensionnez, la filtrez ou masquez les cellules. Si vous voulez que l'image reste collée à la cellule, vous devez verrouiller l'image sur la cellule où elle est placée.

Pour ce faire, suivez les étapes supplémentaires comme indiqué ci-dessous.

1. Clic droit sur l'image et sélectionnez 'Format de l'image'.
2. Dans le volet 'Format de l'image', sélectionnez Taille et propriétés et avec les options dans Propriétés, sélectionnez 'Se déplacer et se redimensionner avec les cellules'.

Maintenant, vous pouvez déplacer les cellules, les filtrer ou les masquer, et l'image se déplacera/filtrera/masquera également.

---

REMARQUE :

Cette réponse a été prise à partir de ce lien : Insérer une image dans une cellule Excel.

Answer 5

Alors que ma recommandation est de profiter de l'automatisation disponible sur Doality.com spécifiquement Picture Manager pour Excel

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

Ce code insérera l'image dans la cellule choisie et la mettra à l'échelle pour s'adapter à la largeur et à la hauteur exactes de la cellule. Par exemple:

Instructions:

Ajoutez un contrôle de bouton à votre classeur Excel (cliquez sur l'onglet Développeur, Insérer, Contrôle ActiveX, Bouton de commande) puis double-cliquez sur le bouton pour accéder au code VBA -->

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

    Set filePathCell = Application.InputBox(Prompt:= _
        "Veuillez sélectionner la cellule contenant le chemin d'accès de référence à votre fichier image", _
            Title:="Spécifiez le chemin d'accès au fichier", Type:=8)

     Set imageLocationCell = Application.InputBox(Prompt:= _
        "Veuillez sélectionner la cellule dans laquelle vous souhaitez insérer votre image.", _
            Title:="Cellule image", Type:=8)

    If filePathCell Is Nothing Then
       MsgBox ("Veuillez faire une sélection pour le chemin d'accès au fichier")
       Exit Sub
    Else
      If filePathCell.Cells.Count > 1 Then
        MsgBox ("Veuillez sélectionner uniquement une cellule contenant l'emplacement du fichier")
        Exit Sub
      Else
        filePath = Cells(filePathCell.Row, filePathCell.Column).Value
      End If
    End If

    If imageLocationCell Is Nothing Then
       MsgBox ("Veuillez faire une sélection pour l'emplacement de l'image")
       Exit Sub
    Else
      If imageLocationCell.Cells.Count > 1 Then
        MsgBox ("Veuillez sélectionner uniquement une cellule où vous souhaitez que l'image soit insérée")
        Exit Sub
      Else
        InsertPic filePath, imageLocationCell
        Exit Sub
      End If
    End If
End Sub

Créez ensuite votre méthode d'insertion comme suit (elle peut suivre le code du bouton ci-dessus):

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 ("Chemin d'accès au fichier invalide")
        Exit Sub
    End If

    Set xlWorksheet = ActiveSheet

    Set xlPic = xlWorksheet.Shapes.AddPicture(filePath, msoFalse, msoCTrue, insertCell.Left, insertCell.Top, insertCell.Width, insertCell.Height)
    xlPic.LockAspectRatio = msoCTrue
End Sub