Insérer image dans cellule. {excel 2010}
Bonjour,
Je vous explique :
- j'ai une base de donnée concernant 400 personnes avec des infos personnelles, numéro de dossier, et autre sur une page de mon classeur. Elle contient aussi le lien vers une photo de la personne concernés. Cette page n'est pas visible par mes collaborateur.
-Sur une autre page, visible de mes collaborateurs, j'ai un système à base de recherchev qui me permet après avoir rentré le nom d'une des personne de concaténer l'ensemble des données afin que cela soit lisible.
-Je souhaite y rajouter la photo avec une mise en forme automatique de la taille de celle-ci afin qu'elle soit au format d'une cellule spécifiée.
Si quelqu'un est capable de m'expliquer comment faire je suis preneur
Merci d'avance.
Je vous explique :
- j'ai une base de donnée concernant 400 personnes avec des infos personnelles, numéro de dossier, et autre sur une page de mon classeur. Elle contient aussi le lien vers une photo de la personne concernés. Cette page n'est pas visible par mes collaborateur.
-Sur une autre page, visible de mes collaborateurs, j'ai un système à base de recherchev qui me permet après avoir rentré le nom d'une des personne de concaténer l'ensemble des données afin que cela soit lisible.
-Je souhaite y rajouter la photo avec une mise en forme automatique de la taille de celle-ci afin qu'elle soit au format d'une cellule spécifiée.
Si quelqu'un est capable de m'expliquer comment faire je suis preneur
Merci d'avance.
6 réponses
-
Salam oursmili. :)
Je ne sais pas insérer une image dans une cellule mais, en contournant un peu, faisons en sorte que l'image se positionne sur la cellule désirée (A1 par exemple) et se redimensionne en conséquence, l'essentiel étant qu'elle s'affiche à l'endroit et aux dimensions voulus. Je propose donc ce code VBA :Public Sub TailleImage()
ActiveSheet.Pictures.Insert("C:\image.bmp").Select
With Selection.ShapeRange
.Left = ActiveSheet.Range("A1").Left
.Top = ActiveSheet.Range("A1").Top
.Height = ActiveSheet.Range("A1").Height
.Width = ActiveSheet.Range("A1").Width
End With
End Sub
:--))
