XL 2010 affichage image dans cellule

[Thalie]

bonjour,

je souhaite créer une base de donnée affichant les images contenues dans un dossier dans une cellule excel (je précise que les images sont nommées selon un identifiant unique)
en A l'identifiant, en B le nom du produit et en C les images.
Pouvez-vous m'aider ?
merci à vous

 

[Dim.Reichart]

Bonjour,
Sur Word, les images s'inscrivent dans la cellule d'un tableau, pas sur excel, il faut les dimensionner pour qu'elles aient la même taille.

 

[Thalie]

oui merci
mais je sais qu'il est possible d'afficher des images d'un dossier dans des cellules via affichImage quelque chose comme ça
🙂

 

[Dim.Reichart]

ah, je ne connais pas alors, mais je vais suivre si qqn donne la solution, ca m'interesse.

 

[Thalie]

Y a personne qui peut m'aider 😉

 

[job75]

Bonjour,

Y a personne qui peut m'aider 😉

Pas vu le fichier Excel, encore moins les fichiers images.

A+

 

[Thalie]

bonjour job75,
voici en le fichier et les photos et j'aimerai en colonne c afficher les photos
merci de ton aide
Thalie

 

[job75]

Bonjour,

Le plus simple est d'introduire chaque image dans le commentaire de la cellule en colonne C .

Voyez le fichier (zippé) joint avec ce code :

Sub Images()
Dim coef#, chemin$, i&, fichier$, o As Object
coef = 2 'coefficient d'agrandissement des images, à adapter
chemin = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
With [Tableau1]
    .Columns(3).ClearComments
    For i = 1 To .Rows.Count
        fichier = Dir(chemin & .Cells(i, 1) & ".jpg")
        If fichier <> "" Then
            Set o = ActiveSheet.Pictures.Insert(chemin & fichier) 'image temporaire
            o.ShapeRange.LockAspectRatio = msoTrue 'verrouille les proportions
            o.Width = o.Width * coef 'agrandissement
            With .Cells(i, 3).AddComment("").Shape 'crée le commentaire
                .Width = o.Width
                .Height = o.Height
                .Fill.UserPicture chemin & fichier
            End With
            o.Delete 'supprime l'image temporaire
        End If
    Next
End With
End Sub

L'image s'affiche au survol de la cellule par la souris.

A+

 

[Thalie]

Bonjour,

Le plus simple est d'introduire chaque image dans le commentaire de la cellule en colonne C .

Voyez le fichier (zippé) joint avec ce code :

Sub Images()
Dim coef#, chemin$, i&, fichier$, o As Object
coef = 2 'coefficient d'agrandissement des images, à adapter
chemin = ThisWorkbook.Path & "\"
Application.ScreenUpdating = False
With [Tableau1]
    .Columns(3).ClearComments
    For i = 1 To .Rows.Count
        fichier = Dir(chemin & .Cells(i, 1) & ".jpg")
        If fichier <> "" Then
            Set o = ActiveSheet.Pictures.Insert(chemin & fichier) 'image temporaire
            o.ShapeRange.LockAspectRatio = msoTrue 'verrouille les proportions
            o.Width = o.Width * coef 'agrandissement
            With .Cells(i, 3).AddComment("").Shape 'crée le commentaire
                .Width = o.Width
                .Height = o.Height
                .Fill.UserPicture chemin & fichier
            End With
            o.Delete 'supprime l'image temporaire
        End If
    Next
End With
End Sub

L'image s'affiche au survol de la cellule par la souris.

A+

Merci bcq
Thalie